даны 2 действительных числа.Возвести в квадрат те из них,значение которых неотрицательны.Числа вводятся пользователям с клавиатуры.Результат работы программы вводится на экран
Ответы на вопрос
Ответил den19991210
0
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.
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.
Новые вопросы