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

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

Найти нужный

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

Сочинение по литературе написано на 5 страницах, на каждой странице 32 строки по 48 символов. Использовалась кодировка Unicode, где один символ кодиру... Текстовый документ, состоящий из нескольких страниц, занимает на жёстком диске 84 Кбайт. На 1-ой страницу документа 48 строк по 64 символа в строке. К... назовите основные элементы окна табличного процессора. перечислите общие элементы окна табличного процессора и окна текстового процессора... В электронных таблицах имя ячейки образуется?????... Напишите программу, которая по данному натуральному числу N вычисляет сумму следующего выражения: 12 + 2 2 + 33 + … + n2.   Входные данны...