Вопрос по информатике:
Помогите написать программу на PascalABCNET
ВХОДНЫЕ ДАННЫЕ
Задано натуральное число N.
ВЫХОДНЫЕ ДАННЫЕ
Определите количество нулей в его записи.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 16.09.2018 20:08
- Информатика
- remove_red_eye 3207
- thumb_up 46
Ответы и объяснения 1
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
- 17.09.2018 00:01
- thumb_up 38
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.