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

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

Найти нужный

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

1.Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4. Программа получает на вход количество ч... Укажите правильный вариант записи условия х-двузначное число... Ученик Вася Питонов написал программу, но случайно удалил один комментарий в программе и теперь не может вспомнить, какую задачу обработки массива реш... Алгоритмический язык алг нач цел s, k s := 2 нц для k от 1 до 5 s := s * 2 кц вывод s... Какие программы продаются в специальной упаковке с сопровождающей документацией? 1) бесплатные программы 2) условно бесплатные программы 3) коммерче...