Нужно модифицировать программу подсчета количества цифр данного числа

@Nekit2000 · Регистрация: 05.02.2016

Студворк — интернет-сервис помощи студентам

Была задача:
Дано натуральное число n. Требуется подсчитать количество цифр данного числа - 73485.
Она была решена:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Program ...;
var n, m, k:integer;
begin
writeln('Введите натуральное число:');
readln(n);
m:=n;
k:=0;
while m<>0 do 
begin
m:=m div 10;
k:=k+1;
end;
writeln ('В числе',n,'',k,' цифр');
end.

Теперь её нужно модифицировать так, чтобы она решала такие задачи:
- найдите количество четных цифр числа;
- найдите сумму цифр числа;
- найдите сумму цифр числа, больших 5;
- найдите первую цифру числа;
- ответьте на вопрос, сколько раз данная цифра встречается в числе
Можно сделать одну программу, которая будет решать все эти задачи, а можно по отдельности.
Помогите решить пожалуйста. И подскажите как благодарить можно на этом форуме.

@Nekit2000 · 07.02.2016, 00:54 **[ТС]**

Спасибо всем огромное за ваши ответы. Вы очень мне помогли.

Новые блоги и статьи Все статьи Все блоги /
Транскрипция 55-минутного видео через Whisper: WhisperDesktop облажался, спас Google Colab[ anaschu 01.06.2026 Понадобилось получить текст из свежезагруженного видео на YouTube. Казалось бы, задача на пять минут. Заняла полтора часа. Делюсь опытом — может кому пригодится последовательность решений. . . .	21 мат мед. Планы на развитие модели здравоСохранения anaschu 01.06.2026 AnyLogic: план развития симуляционной модели рабочего коллектива — динамический абсентеизм, реальные данные, три сценария сравнения Продолжаю серию постов о дискретно-событийной модели рабочего. . .	20. Мат мед. Абсентеизм как отдельный тип простоя anaschu 29.05.2026 Апдейт модели: исправленные баги, абсентеизм и новые механизмы Продолжаю развивать ранее описанную модель рабочего коллектива на AnyLogic. За последние несколько дней был проведён серьёзный. . .	19. здоровье, усталость и психотип работника влияют на производительность предприятия, и наоборот, производительность на здоровье, усталось и психотип anaschu 28.05.2026 Дискретно-событийная модель рабочего коллектива на AnyLogic: здоровье, выгорание, психотипы и микростимуляция Привет, коллеги. Хочу поделиться итогами нескольких недель работы над симуляционной. . .
"Прокси" для последовательного порта Eddy_Em 28.05.2026 Эту штуку написал я достаточно давно. Но сейчас вот понадобилось настроить датчик грозы, но при этом не отключать его от "метеодемона". Соответственно, надо запустить этот "прокси": метеодемон будет. . .	Рефакторинг программы уравнивания. Massaraksh7 26.05.2026 Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.	Использование TThread в Lazarus для математических вычислений. Massaraksh7 25.05.2026 Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .	Модель здравосохранения 18. Чем здоровее работник, тем быстрее выгорает anaschu 24.05.2026 Имитационная модель корпоративного здравоохранения: что показывает математика Сегодня в модели рабочего коллектива на AnyLogic появились три новые механики — выгорание через накопленную усталость,. . .

@Nekit2000 0 / 0 / 0 Регистрация: 05.02.2016 Сообщений: 19
	07.02.2016, 00:54 [ТС]
	Спасибо всем огромное за ваши ответы. Вы очень мне помогли. 0

Опции темы