Задать вопрос
10 июля, 05:31

Помогите написать в паскале!

Ввести три целых числа

x, y, z. Если хотя бы одно из них четное,

то

первому четному числу присвоить значение произведения этих чисел.

Сообразил только как определить чётное или нечётное число а как дальше не могу понять!

program Lab2;

var x, y, z: integer;

Begin

Writeln ('Введите число') ;

Readln (x) ;

if x mod 2 = 0 then

writeln ('Это число чётное')

else / / Иначе

writeln ('Число нечётно') ;

Writeln ('Введите число') ;

Readln (y) ;

if y mod 2 = 0 then

writeln ('Это число чётное')

else / / Иначе

writeln ('Число нечётно') ;

Writeln ('Введите число') ;

Readln (z) ;

if z mod 2 = 0 then

writeln ('Это число чётное')

else / / Иначе

writeln ('Число нечётно') ;

end.

Ответы (1)
  1. А
    10 июля, 09:17
    0
    Var x, y, z : integer;

    Begin

    read (x, y, z) ;

    if x mod 2 = 0 then x: = x*y*z

    else if y mod 2 = 0 then y: = x*y*z

    else if z mod 2 = 0 then z: = x*y*z;

    writeln (x:3, y:3, z:3) ;

    End.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Помогите написать в паскале! Ввести три целых числа x, y, z. Если хотя бы одно из них четное, то первому четному числу присвоить значение ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
 
Войти
Задать вопрос