составте програму, которая вводит число с клавиатуры , и если оно отрицательное возводит его в квадрат
Ответы
Ответ дал:
0
var a:integer;
begin
writeln('Введите целое число');
read(a);
if a<0 then writeln('Квадрат ',a,'=',sqr(a))
else writeln('Число положительное');
end.
begin
writeln('Введите целое число');
read(a);
if a<0 then writeln('Квадрат ',a,'=',sqr(a))
else writeln('Число положительное');
end.
Ответ дал:
0
спасибо
Вас заинтересует
1 год назад
6 лет назад
9 лет назад