Даны 2 действительных числа.возвести в квадрат те из них,значение которых неотрицательны.числа вводятся пользователям с клавиатуры.результат работы программы вводится на экран

1234567х91011111223 1234567х91011111223    1   31.07.2019 13:10    3

Ответы
32519 32519  28.09.2020 16:33
Var
a,d,f,g: integer;
begin
readln(a,d);
if a>0 then  begin f:=sqr(a); writeln(f); end;
if d>0 then  begin g:=sqr(d); writeln(g); end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика