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

Question

Информатика

Юрия

12 июня, 01:21

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

+3

Ответы (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.