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

Question

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

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.