Даны числа x, y и z. Составьте программу, которая возводит в квадрат те из них, которые не отрицательные

Question

Информатика

Муся

13 сентября, 09:35

Даны числа x, y и z. Составьте программу, которая возводит в квадрат те из них, которые не отрицательные

+1

Ответы (1)

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

Витюшка · Answer 1

Var

x, y, z : real;

begin

read (x, y, z) ;

if (x > 0) then x : = sqr (x) ;

if (y > 0) then y : = sqr (y) ;

if (z > 0) then z : = sqr (z) ;

write (x, ' ', y, ' ', z) ;

end.