Помогите написать программу на PascalABCNET
ВХОДНЫЕ ДАННЫЕ

Задано натуральное число N.
ВЫХОДНЫЕ ДАННЫЕ

Определите количество нулей в его записи.

Ответы (1)

Добримил 15.11.2025 3

Var
n:string;
i,k:integer;
begin
Writeln('Введите число: '); Read(n);
k:=0;
for i:=1 to length(n) do
if n[i]='0' then Inc(k);
Writeln('Количество нулей в числе равно ',k)
end.

Тестовое решение:
Введите число:
2053006204
Количество нулей в числе равно 4

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ

Помогите написать программу на PascalABCNET ВХОДНЫЕ ДАННЫЕ Задано натуральное число N. ВЫХОДНЫЕ ДАННЫЕ Определите количество нулей в его записи.

Думаешь ответы не верны?

Помогите написать программу на PascalABCNET
ВХОДНЫЕ ДАННЫЕ

Задано натуральное число N.
ВЫХОДНЫЕ ДАННЫЕ

Определите количество нулей в его записи.