Работа в паскале.

Даны три переменные: x, y, z. Если их значения делятся без остатка на 4, то удвоить их; в противном случае заменить значение переменной на противоположное.

Question

Информатика

Зарина

25 июня, 12:44

Работа в паскале.

Даны три переменные: x, y, z. Если их значения делятся без остатка на 4, то удвоить их; в противном случае заменить значение переменной на противоположное.

+3

Ответы (1)

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

Дросида · Answer 1

Var x, y, z:integer;

begin

write ('Введите x, y, z: ') ;

readln (x, y, z) ;

if (x mod 4=0) and (y mod 4=0) and (z mod 4=0) then

begin

x:=x*2;

y:=y*2;

z:=z*2

end

else

begin

x:=-x;

y:=-y;

z:=-z

end;

writeln (x,' ', y,' ', z)

end.