Есть ответ 👍

1) с клавиатуры вводится трёхзначное число. нужно вывести ответ «да», если все его цифры четные, и ответ «нет» в остальных случаях.

189
245
Посмотреть ответы 3

Ответы на вопрос:


Var a,b,c,d: integer; begin       writeln('введите трехзначное число: '); readln(a);       b: = a div 100;       c: = a mod 100 div 10;       d: = a mod 10;       if (b mod 2 = 0)and(c mod 2 = 0)and(d mod 2 = 0)       then writeln('yes')       else writeln('no'); end.

Найдите закономерности

1 эксобайт

удачи в жизни и в учебе. Надеюсь .

Популярно: Информатика