Написать программу(паскаль) и блок - схема.
avorob
3
21.04.2020 22:47
1
Другие вопросы по теме Информатика
azia2995
04.07.2019 20:20
xmaxim99
04.07.2019 20:20
sitkavetskiy
12.12.2020 08:11
skuryan
12.12.2020 08:10
grigoryanoksan
12.12.2020 08:10
11Аслан11
12.12.2020 08:09
АэлинкаМалинка
12.12.2020 08:09
Yunusovaliana20
12.12.2020 08:09
Марина0506
12.12.2020 08:09
Популярные вопросы
- Што дла вас значаць словы Радзиму нашу любим и абараняць яе павинны Напишите...
1 - 5.Площадь меньшего поршня гидравлического пресса 5 см, площадь большего поршня...
3 - Контрольний твір з теми Усвідомлення власної позиції у віршах В.Симоненка...
1 - Какие проблемы поставленные в собачьем сердце актуальны в нашей жизни...
3 - Составить предложения с этими словами...
1 - Скалярное произведение собственных векторов самосопряжённого линейног тпреобразования,...
3 - Задание 2. Дайте кратское описание природе города Тараз. Перечисли экологические...
3 - 1. Даны векторы: a (1; 3), b (-2; 4),c (-1; -3), d (-4; 4), p (3; 9), q (-1;...
2 - Кто знает будет ли 3 мировая война на востоке?...
1 - 4. Водоизмещение судна равно 400 000 кН. Какая сила тяжести действует на...
3
Var s,n:integer;
Begin
write('Введите число: ');readln(n);
s:=0;
While n<>0 do
Begin
if n mod 10 mod 2 = 0 then
s:=s+n mod 10;
n:=n div 10;
End;
if s<>0 then writeln('Сумма четных цифр: ',s)
else
writeln('Нету четных цифр в числе');
readln;
End.