Если введенное с клавиатуры число (не равное нулю) положительно вычислить его квадрат, а если отрицательно - умножить его на 2
Если введенное с клавиатуры число (не равное нулю) положительно вычислить его квадрат, а если отрицательно - умножить его на 2
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы