Лучшие помощники
- Megamozg 2180 б
- Matalya1 1800 б
- DevAdmin 1690 б
- arkasha_bortnikov 840 б
- Dwayne_Johnson 840 б
30 ноября 2022 03:34
1992
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
Остались вопросы?
Еще вопросы по категории Информатика
20 баллов Сумма 10000 рублей положена в сберегательный банк, при этом прирост составляет 5% годовых. Составьте алгоритм, определяющий, через какой про...
Решите задачу: Для кодирования одного пикселя используется 4 байта фотографию размером 1024*2048 пикселей сохранили в виде несжатого файла определите...
Назовите надсистему для объекта «принтер». В каком отношении находятся объекты «принтер» и «струйный принтер»?...
В кодировке CP866 каждый символ кодируется одним байтом, определите кол-во символов в сообщение если информационный объем сообщением в этой кодировке...
В ШКОЛЬНУЮ КОМАНДУ ПО ВОЛЕЙБОЛУ БЫЛО ОТОБРАНО НЕКОТОРОЕ КОЛИЧЕСТВО УЧЕНИКОВ ИЗ 64 ПРЕТЕНДЕНТОВ.СКОЛЬКО УЧЕНИКОВ БЫЛО ОТОБРАНО ,ЕСЛИ СООБЩЕНИИ О ТОМ ,К...
Все предметы