Составьте программу которая возводит в квадрат введенное целое число если оно отрицательное и выводит на экран результат
Составьте программу которая возводит в квадрат введенное целое число если оно отрицательное и выводит на экран результат
Гость
Ответ(ы) на вопрос:
Гостьvar a:longint; begin write ('A = ');readln(a); if a<0 then begin a:=sqr(a); write(a); end; readln; end.
Не нашли ответ?
Похожие вопросы