Почему не работает запись в паскале по : написать программу, подсчитывающую количество четных цифр, которые делятся на 4, в числе. вот запись, исправьте : program chisla; var a,b,k: integer; begin k: =0; writeln('введите число'); readln(a); repeat if(a mod 2=0)and(a mod 4=0)then k: =k+1 until a=0; writeln('количество чисел=',k) end.
Руслана5999226
3
12.07.2019 13:00
0
Другие вопросы по теме Информатика
Anonimka04
28.04.2020 22:31
knopendui
10.03.2019 02:40
kisa99w934e8
10.03.2019 02:40
виктория1552
15.09.2019 14:52
кам81
15.09.2019 14:49
Никитар456
15.09.2019 16:20
milka294
28.08.2019 00:40
сhevapchichi0
29.09.2019 01:10
novikovat73
29.09.2019 01:20
Популярные вопросы
- Скласти інаписати текст опис про свою однокласницю...
3 - Соствте 7 диолов как доехать до аэропорта...
3 - Как изменилось купечество в 17 веке...
2 - Место росии в мире и нац. безопасность...
1 - Укажіть правильне тверження: протилежні сторони будь якої трапеції рівні...
3 - Что такое любовь,как возникает сколько длится,приносит ли счастья ,отношения...
1 - Складіть діалог на тему як не зневіритись на шляху до мрії 15- 20 реплик...
3 - Сравните 1/8 и 1/2 3/8 и 1/2 4/8 и 1/2 7/8 и 1/2...
1 - Сообщение или доклад на тему: труд и игра как вид деятелности...
1 - Может ли одна и та же группа быть одновременно отнесена к референтной,профессиональной,большой,естественной,социальной,неформальной,условной,обосновать...
3
begin
k:=0;
writeln('Введите число');
readln(a);
repeat
if (a mod 10) in [4,8] then k:=k+1;
a:=a div 10;
until a=0;
writeln('Количество чисел=',k)
end.
Введите число
24583
Количество чисел=2