Ввести с клавиатуры три числа (x, y, z). Если x

Question

Мария Герасимова

Информатика

28 июля, 07:14

Ввести с клавиатуры три числа (x, y, z). Если x

+3

Ответы (1)

Знаешь ответ на этот вопрос?

Алёна Шевцова · Answer 1

program num;

var x, y, z:integer;

begin

writeln ('Enter x, y, z'); / / ввод трех целых чисел через пробел

readln (x, y, z);

if (x
begin

x:=2*x; y:=y*2; z:=z*2;

write (x,' ', y,' ', z);

end

else if (z
begin

x:=x*x; write (x);

end

else

begin

x:=0; y:=0; z:=0;

write (x,' ', y,' ', z);

end

end.