Найти сумму чётных цифр числа) ) решить в паскале. буду )
Анюта10072401
2
21.05.2019 18:20
1
Другие вопросы по теме Информатика
kksa2001
13.01.2021 09:36
avrora26
25.04.2020 10:56
ксения1291
25.04.2020 10:41
Gumashova
25.04.2020 10:56
iznaur2002
03.08.2019 14:00
nikgtacs59
03.08.2019 14:00
zhenyasvetli4n
27.02.2020 12:22
Tittans7
27.02.2020 12:22
tln72
15.01.2021 11:11
Популярные вопросы
- 1.В каком году было отменено долговое рабство? 2. Почему консулами становились...
2 - Во на рисунке изображен график изменения температури воздуха на протяжении...
2 - Робітник отримав заробітню плату урозмірі 8000 гривень. Першого тижнявін...
3 - Доказать, что радиус вписанной окружности в прямоугольный треугольник (угол...
2 - Випишіть формули оксидів: 1)CaO; H2SO4; 2)Na2O; 3) Fe2O3; 4)KOH; 5) SO3;...
2 - Решите уравнения x² + 4x² - 9x – 36 = 0; x ²+ 8x + 18 = 0...
3 - Твір-роздум Сучасна література в моєму прочитанні ( за романом Н.Геймана...
2 - Зашифруй с шифра с ключом 4: ЯГОТОВКЖИЗНИВУМНОМГОРОДЕ. ответ запиши без...
3 - 1. Устно: Вдумчиво прочитать статью в учебнике «Литература В.Я.Коровина....
1 - Как выглядит по-ахваxски аварское слово ах ‘сад’?Как выглядит по-ахваxски...
1
var
s:integer;
a,n:longint;
begin
write ('A =');readln(a);
if (a div 10 = 0) and (odd(a)=false) then s:=a else begin
n:=a;
while n div 10 <> 0 do begin
n:=a;
if odd(a mod 10)=false then s:=s+a mod 10;
a:=a div 10;
end;
end;
writeln (s);
readln;
end.