Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные (число 0 не изменять).

Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные (число 0 не изменять). 

Program Anadra;

uses crt;

var a,b,c: integer;

begin

writeln(‘Введите 3 числа’);

readln(a);

readln(b);

readln(c);

If a>0 then a:=sqr(a)*a;

If a<0 then a:=sqr(a);

If b>0 then b:=sqr(b)*b;

If b<0 then b:=sqr(b);

If c>0 then c:=sqr(c)*c;

If c<0 then c:=sqr(c);

writeln(‘Новые значения: ‘);

writeln(a);

writeln(b);

writeln(c);

end.

Разбор решения:  

1)Итак, для начала нам надо заполнить раздел описания переменных.

Integer:

a – первое число

b – второе число

с – третье число

2)Теперь сама программа. Для начала просим пользователя ввести 3 числа и он вводит их.

writeln(‘Введите 3 числа’);

readln(a);

readln(b);

readln(c);

3)Теперь,  с помощью оператора сравнения узнаем какой знак имеет первое число.  Если +, то возводим его в третью степень, если минус, то в второю.

If a>0 then a:=sqr(a)*a;

If a<0 then a:=sqr(a);

4)Тоже самое делаем с остальными числами.

If b>0 then b:=sqr(b)*b;

If b<0 then b:=sqr(b);

If c>0 then c:=sqr(c)*c;

If c<0 then c:=sqr(c);

4)Выводим новые значения на экран.

writeln(‘Новые значения: ‘);

writeln(a);

writeln(b);

writeln(c);

5)Программа готова. Жду ваших комментариев.