Дано n-значение число. сосчитать количество цифр равных нулю. На языке паскаль
ксениякейт
1
16.04.2021 11:52
0
Другие вопросы по теме Информатика
gugem
28.08.2019 04:20
Yablochkho
13.05.2020 10:22
ibragimovakatia
13.05.2020 10:22
aiiiotbahiiiot
13.05.2020 10:22
GromovaRus
17.10.2020 20:52
DayanaEstDetei
17.10.2020 20:57
popygai2
14.02.2022 12:43
NurBanu1
18.05.2019 00:20
тикимиккной
18.05.2019 00:10
Популярные вопросы
- 2. Назвіть складно анти- ності, і хронологічні межі. 3. Розкрийте античну концепцію...
2 - На які підвиди поділяється архітектура за призначенням...
1 - Что такое диалог и монолог?...
2 - CРОЧНО Выполните сложение двоичных чисел 1) а) 101+111 б) 1101+110 в) 1111+1011...
3 - - Побудуйте на координатній площині коло, задане рiв нянням (x + 3) ² + (y -...
2 - 12. Зачем возникла эвристика? 1) чтобы заставить человека думать; 2) чтобы открыть...
2 - Диктант 2 по теме «Основное свойство рациональной дроби» Запишите окончание предложения:...
3 - Task 1. Переведите в косвенную речь. 1) “It’s a wonderful view!” she exclaimed...
2 - Read the text again . Anaswer the questionswhat is unique about ruh ordo.What...
3 - Домашнє завдання. Визначити тип зв`язку . написати механізм утворення молекули...
3
var
x, counter : integer;
begin
readln(x);
x := abs(x);
while x > 0 do
begin
if (x mod 10 = 0) then
counter := counter + 1;
x := x div 10;
end;
writeln(counter);
end.