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

Question

Информатика

Машуха

8 июня, 19:02

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

+5

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