Даны числа x,y и z. Составьте программу, которая возводит в квадрат те из них, которые не отрицательные
Даны числа x,y и z. Составьте программу, которая возводит в квадрат те из них, которые не отрицательные
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы