Напишите программу для решения : дано целое неотрицательное число. определить количество нулей в его десятичной записи, на до на паскале, ! заранее .
bbb87
1
21.05.2019 04:50
6
Другие вопросы по теме Информатика
Aydan666
04.12.2020 22:09
pitonpitonov
04.12.2020 22:18
Артем1526
23.12.2019 16:20
artemts242
23.12.2019 16:21
daurmukhtar99
23.12.2019 16:23
moebounejlbmehp08d3n
23.12.2019 16:23
Leyla1313
23.12.2019 16:23
combatcat
23.12.2019 16:24
dvortrans
23.12.2019 16:24
asdgvhmh
23.12.2019 16:24
Популярные вопросы
- добавьте в тексты причастные обороты шёл я по лесной тропинке,...
3 - Упетра ивановича есть тесть олег анатольевич и сын антон. кем...
3 - Какая взаимосвязь существовала между научной и промышленной революциями?...
1 - Элементы массива вводят с клавиатуры. найти сумму элементов на...
1 - Сочинение на тему: «планируя карьеру, ты станешь тем, кем хочешь...
1 - Составить предложения.поставить глаголы в правильную форму. 1)always/early/she/arrive.2)basketball/i/play/often.3)work/margaret/hard/usually/4)jenny/always/nice...
1 - 6. причины отмены системы кормления: а) постоянные споры воевод...
3 - Составьте цепочку превращений na2co3 - nacl - na - naoh - na3po4...
3 - Что значит быть право и дее...
3 - 11. выберите правильные ответы. причинами падения избранной рады...
2
Program noli;
Var X, Y: integer;
Begin
S:=0;
Write ('Введите число Х');
Read (X);
While X<>0 do begin
Y:= X mod 10;
If Y = 0 then S:= S + 1;
X:= X div 10;
Write ('Количество нулей в числе', S);
End.