Вариант 1: (исп если чисел мало)
uses crt;
var a,b,c:integer;
begin
ClrScr;
Writeln('Введите 3 челых числа');
Readln(a,b,c);
if a>0 then a:=a*a*a;
if a<0 then a:=a*a;
if b<0 then b:=b*b;
if b>0 then b:=b*b*b;
if c>0 then c:=c*c*c;
if c<0 then c:=c*c;
Writeln(a,' ',b,' ',c);
Readln;
end.
Вариант 2: (исп если чисел много)
uses crt;
var a:array[1..3]of integer;
i:integer;
begin
ClrScr;
Writeln('Введите 3 челых числа');
Writeln;
For i:=1 to 3 do begin
readln(a);
if a>0 then a:=a*a*a;
if a<0 then a:=a*a;
Writeln(a);
Writeln;
end;
Readln;
end.
P.S. Так же они отличаются выводом: в 1 случае сначала все 3 вводятся потом все 3 выводится; во 2 варианте число вводится обрабатывается выводится- при желании можно спокойно поменять
Так же программы проверены. Если нужно что-то объяснить или решить по-другому обращайся.
Другие языки программирования и технологии
Даны 3 целых числа. Возвести в квадрат отрицательные числа и в третью степень - положительные (число 0 не изменять)
отрицательные - if x < 0
положительные if x > 0
возведение в квадрат x:= x*x
в куб x := x*x*x
положительные if x > 0
возведение в квадрат x:= x*x
в куб x := x*x*x
int main()
{
setlocale(LC_ALL, "Russian");
int a,b,e;
cout << "Введите число: ";
cin >> a;
cout << "Введите число: ";
cin >> b;
cout << "Введите число: ";
cin >> e;
if (a > 0 || b > 0 || e > 0)
{
a *= a;
b *= b;
e *= e;
}
if (a < 0 || b < 0 || e < 0)
{
a = 0;
b = 0;
e = 0;
}
cout << a << endl << b << endl << e << endl;
}
{
setlocale(LC_ALL, "Russian");
int a,b,e;
cout << "Введите число: ";
cin >> a;
cout << "Введите число: ";
cin >> b;
cout << "Введите число: ";
cin >> e;
if (a > 0 || b > 0 || e > 0)
{
a *= a;
b *= b;
e *= e;
}
if (a < 0 || b < 0 || e < 0)
{
a = 0;
b = 0;
e = 0;
}
cout << a << endl << b << endl << e << endl;
}
Похожие вопросы
- TurboPascal. Дана матрица целых чисел. Возвести её во вторую степень, вывести исходную и полученную матрицы
- C++ Даны три действительных числа. Возвести в квадрат те из них, значения которых неотрицательны.
- Даны 3 целых числа найти среднее язык #C
- Дан файл целых чисел. Создать два новых файла, первый из которых содержит положительные числа из исходного файла...
- Вам даны все целые числа от 1 до N + 1, кроме одного. Найдите отсутствующее число.
- помогите? Дан массив целых чисел (n=15),
- дан массив целых чисел F1,F2...Fn. распечатать элементы, нах-ся между min и max и их номера. подскажите где я ошибся
- Помогите :) Дан массив из n целых чисел. Найти количество встречающихся равных чисел.
- Pascal. Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, которые являются степенью двойки.
- Pascal. Дана строка, элементы - числа через пробел. Как отсечь числа, которые содержат '0'?