Найти четные цифры трехзначного числа
asya1607
1
07.03.2019 20:42
5
Другие вопросы по теме Информатика
snoopy201
19.09.2019 19:50
elen19871
19.09.2019 20:00
Abdulmansur
19.09.2019 20:00
lizokturina
19.09.2019 20:00
ToPGoP1
19.09.2019 20:00
Kika228322
19.09.2019 20:00
пучкаек
19.09.2019 20:00
Маруся203
19.09.2019 20:00
san31032009
19.09.2019 20:01
darkforse876
19.09.2019 20:10
Популярные вопросы
- дата персоналии событие итоги значение За ранее...
2 - Как вычислить сопротивление проводника в зависимости от его длины, площади сечения...
1 - Якщо напруженість електричного поля дорівнює 600 Н/Кл,то... А...на тіло із зарядом...
2 - Решите неравенство: 2x² ≥ |x²−6x|−8 Решите уравнение: √4х-2 · sin2x=04x-2 под...
3 - Фонетика Казахский язык на слово-Артык ...
3 - Метрическая резьба. 1. Назовите виды соединений. 2. Каким образом изображается...
2 - Прочитати п єсу-казку Синій птах , записати в зошиті ознаки нової драми , драма-феєрія....
2 - Выбери предложение с нарушением употребления причастного оборота. 1) Константином...
1 - Обчисліть масу солі, що утвориться в результаті взаємодії 5 моль аміноетанової...
1 - Последовательность приручения животных...
2
var d,i:integer;
s:string;
Begin
read(d);
s:=str(d);
for i:= 1 to length(s) do
if int(s[i]) mod 2=0 then
writeln(s[i]);
End.