Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
30 ноября 2022 03:34
2379
1) С клавиатуры вводится трёхзначное число. Нужно вывести ответ «Да», если все его цифры четные, и ответ «Нет» в остальных случаях.
1
ответ
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.
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.
0
·
Хороший ответ
2 декабря 2022 03:34
Остались вопросы?
Еще вопросы по категории Информатика
1. Сколько цветов содержится в палитре растрового рисунка, если на кодирование каждого пикселя отводится 7 бит? 2. Какой объем видеопамяти необходим д...
Срочно помогите...
1.приведите пример информационной модели: а)ученика вашего класса б)игрока баскетбольной команды в)пациента ветеринарной лечебницы г)квартиры жи...
Загадана случайная последовательность из пяти букв. Каждая буква с равной вероятностью является одной из 32-х букв русского алфавита (не используется...
Составьте алгоритмы рисования изображенных ниже фигур так,чтобы в процессе рисования перо не отрывалось от бумаги и ни одна линия не проводилась дважд...