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

Question

Информатика

Мстислава

22 января, 08:45

Помогите написать программу на 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.