• Pascal abc
    Напишите программу, которая возводит в квадрат введенное целое число, если оно отрицательное, и выводит на экран результат.

Ответы 2

  • program abc;var i:integer;beginread(i);if i<0 theni:=sqr(i);write(i);end.
  • program kv;  var a,x:integer;   begin   a:=0;   read(x);        if x<a then write(sqr(x)) else write('введено не отрицательное') ;   end.
    • Автор:

      damon98
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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