Введите с клавиатуры три числа x, y, z. если числа равны, то увеличте их в три раза и выведите результат на экран. Если равны только два последние числа то замените все числа на противоположные и выведите результаты.

иначе все числа сделайте равными 222 и выведите результат

Question

Информатика

Дуся

17 октября, 15:53

Введите с клавиатуры три числа x, y, z. если числа равны, то увеличте их в три раза и выведите результат на экран. Если равны только два последние числа то замените все числа на противоположные и выведите результаты.

иначе все числа сделайте равными 222 и выведите результат

+5

Ответы (1)

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

Елладий · Answer 1

Var

x, y, z: integer;

begin

read (x, y, z) ;

if (x = y) and (y = z) and (x = z) then

begin

x : = 3 * x;

y : = 3 * y;

z : = 3 * z;

write (x, y, z) ;

end

else

if (y = z) then

begin

x : = - x;

y : = - y;

z : = - z;

write (x, y, z) ;

end

else

begin

x : = 222;

y : = 222;

z : = 222;

write (x, y, z) ;

end;

end.