дано натуральное число N найти количество нулей в этом числе
5-9 класс
|
var
n, c : integer;
begin
c := 0;
read (n);
while (n > 0) do
begin
if (n mod 10 = 0) then c := c + 1;
n := n div 10;
end;
write (c);
end.
Другие вопросы из категории
чтоб были циклы и остальное.................
"Принадлежит" либо "Не принадлежит"
>
I:=I+5;
End;
Writeln (I:5);
тема паскаль
информация не воспринимается человеком при данных просмотрах?
1) Тактильная
2) Обонятельная
3) Вкусовая
4) Слуховая
2.Найди лишнее:
1) facebook
2) Linked in
3) в контакте
4) @
3.Какой предмет является лишним ( по ризнаку - управлять курсором)?
1) компьютерная мышь
2) джостик
3)диск
4)клавиатура
4.
Читайте также
изведение всех цифр этого числа а так же колличество больших шестии
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.