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

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

Найти нужный

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

Напишите наибольшее число x, для которого ложно высказывание: (x ≥ 13) ИЛИ НЕ (x нечётное).... А1. Для вывода графической информации в персональном компьютере используется: 1. мышь 2. клавиатура 3. экран дисплея 4. сканер А2. Графика с п... Ввести натуральное число и определить какие цифры встречаются несколько раз Массивы использовать нельзя. Можно решать только через : For,while,if,repe... Сколько гигабайтов в сообщении, содержащем 33554432 битов?... 10. Активная ячейка в таблице программы Excel – это ячейка 1) для записи команд 2) содержащая формулу, включающую в себя имя ячейки, в ко- торой выпо...