Введите 3 числа - a, b, c. Определите, имеется ли среди чисел хотя бы одно чётное число. Выведите на экран соответствующее сообщение: "Есть" либо "Нет".

Введите 3 числа - a, b, c. Определите, имеется ли среди чисел хотя бы одно чётное число. Выведите на экран соответствующее сообщение: "Есть" либо "Нет".
Гость
Ответ(ы) на вопрос:
Гость
var  a, b, c: integer; begin   read(a, b, c);   if (a mod 2 = 0) or (b mod 2 = 0) or (c mod 2 = 0)     then write('Есть')   else write('Нет'); end.
Гость
var a, b, c, tempA, tempB, tempC : integer; begin write('Введите 1 число: '); readln(a); write('Введите 2 число: '); readln(b); write('Введите 3 число: '); readln(c); if a mod 2 > 0 then tempA := 0 else tempA := 1; if b mod 2 > 0 then tempB := 0 else tempB := 1; if c mod 2 > 0 then tempC := 0 else tempC := 1; if (tempA = 0) or (tempB = 0) or (tempC = 0) then write('Есть!') else write('Нет!'); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы