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

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

Задать свой вопрос
Ольга Альбиновская
"Даны три числа x.y.z . Возвести в квадрат те из них значения которых положительны и поменять единицами те,значения которых отрицательны. Новые значения x.y.z напечатать"
1 ответ
Var x,y,z:integer;
begin
writeln('x, y, z:');
readln(x,y,z);
if xlt;0 then x:=1 else x:=x*x;
if ylt;0 then y:=1 else y:=y*y;
if zlt;0 then z:=1 else z:=z*z;
writeln('x = ',x,' y = ',y,' z = ',z);
end.

Пример:
x, y, z:
6 0 -2
x = 36 y = 0 z = 1
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт