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

1 ответ

Посмотреть ответы

Megamozg

2205

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.

Хороший ответ

2 декабря 2022 03:34

Остались вопросы?

Найти нужный

Еще вопросы по категории Информатика

слово арка закодировано числовой последовательностью 0100100010 причем коды согласных и гласных букв имеют различную длинну какое слово по этому коду... Дам 40 баллов Вычислите десятичные эквиваленты следующих двоичных чисел: 1. 1111 [2] 2. 10101 [2] 3. 11011 [2] 4. 1010101 [2] Переведите целые... Андрей составляет 7-буквенные коды из букв А, Н, Д, Р, Е, Й. Буквы А и Й должны встречаться ровно по одному разу, при этом буква Й не может стоять на... 11.Дан фрагмент электронной таблицы в режиме отображения формул: После выполнения вычислений по значениям ячеек диапазона A2:D2 была построена диаграм... ЧТО БУДЕТ РЕЗУЛЬТАТОМ ИСПОЛНЕНИЯ ЧЕРЕПАШКОЙ АЛГОРИТМА ? Повтори 8 раз [ направо45 Вперед 45] если можно примерный рисунок,...