Если введенное с клавиатуры число (не равное нулю) положительно вычислить его квадрат, а если отрицательно - умножить его на 2

Question

Сарра

25 сентября, 16:17

+1

Ответы (1)

Знаешь ответ?

Лебния · Answer 1

Var

a, b:Integer;

Begin

Writeln ('Введите число - '); Readln (a);

if (a>0) then b:=a*a else if (a<0) then b:=a*2;

Writeln ('Ответ: ', b);

End.