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