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

Question

Информатика

Василка

27 сентября, 13:52

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

+3

Ответы (1)

Знаете ответ?

Марюня · Answer 1

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.