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

Ответы 1

  • Vara,b:Integer;Begin     Writeln('Введите число - '); Readln(a);     if(a>0)  then b:=a*a else if (a<0) then b:=a*2;     Writeln('Ответ: ',b);End.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years