Помогите написать программу на Pascal, условие: даны три действительных числа. возвести в квадрат те из них, значения которых неотрицательны.

Question

Информатика

Юрия

19 ноября, 20:53

Помогите написать программу на Pascal, условие: даны три действительных числа. возвести в квадрат те из них, значения которых неотрицательны.

+4

Ответы (1)

Знаете ответ на вопрос?

Амаля · Answer 1

Var a, b, c: real;

Begin

Readln (a, b, c) ;

if (a>0) then a:=a*a;

if (b>0) then b:=b*b;

if (c>0) then c:=c*c;

Writeln (a,' ', b,' ', c) ;

Readln (a) ;

end.