43

Помогите написать в паскале! Ввести три целых числа x, y, z. Если хотя бы одно из них…

21 февраля 2023

Помогите написать в паскале! Ввести три целых числа 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.

категория: информатика



81

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.

Знаете ответ?


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