Лучшие помощники
- Megamozg 2200 б
- Matalya1 1800 б
- DevAdmin 1700 б
- arkasha_bortnikov 890 б
- Dwayne_Johnson 860 б
30 ноября 2022 03:34
2042
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 л...
сообщение занимает 6 страниц по 40 строк, в каждой строке записано по 60 символов.Информационный объем всего сообщения равен 9000 байтов.сколько симво...
Разгадайте кроссворд "информация и информационные процессы"...
Кракозябра-что обозначает в компьютере?...
В цветовой модели RGB доя кодирования одного пикселя используется 3 байта. Фотографию размером 2048x1536 пикселей сохранили в виде не сжатого файла с...
Все предметы