Помогите только 21 решить, просто ** тетради или ** листочке программу написать, ** компе...

Question

Помогите только 21 решить, просто на тетради или на листочке программу написать, на компе сам перепишу , так надо просто , help me

---

Comments

"Даны три числа x.y.z . Возвести в квадрат те из них значения которых положительны и заменить единицами те,значения которых отрицательны. Новые значения x.y.z напечатать"

Answer 1

Var x,y,z:integer;
begin
writeln('x, y, z:');
readln(x,y,z);
if x<0 then x:=1 else x:=x*x;<br>if y<0 then y:=1 else y:=y*y;<br>if z<0 then z:=1 else z:=z*z;<br>writeln('x = ',x,' y = ',y,' z = ',z);
end.

Пример:
x, y, z:
6 0 -2
x = 36 y = 0 z = 1