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

Question

Информатика

Ледя

30 октября, 12:05

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

+3

Ответы (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.