Лучшие помощники
- Megamozg 2195 б
- Matalya1 1800 б
- DevAdmin 1700 б
- arkasha_bortnikov 875 б
- Dwayne_Johnson 850 б
30 ноября 2022 03:34
2024
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
Остались вопросы?
Еще вопросы по категории Информатика
Вопрос 2. Адресом электронной почты может быть: Ответ 1. [email protected] @kraz; Ответ 2. Петя@nsu.ru; Ответ 3. www.luk.ru; Ответ...
Что такое актуальная информация?...
Создать массив a из десяти целых чисел, принадлежащих промежутку [0; 25). Вывести полученный массив на экран. Подсчитать k- количество элементов масси...
6. Определи, при каком наибольшем введённом значении переменной s программа выведет число 10. Для твоего удобства программа представлена на четырё...
begin if (y <200) and (x > 100) then writeln('ДА') else writeln('НЕТ') end. Было проведено 10 запусков этой программы, при которых в качестве з...
Все предметы