Определить количество четных цифр в числе

@Juliya1994 · Регистрация: 14.10.2010

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

дано натуральное число, определить кол-во четных цифр в нем.

@Mad_Dog · 14.10.2010, 16:23

Это с числами, но не с литерами...

Pascal
1
2
3
4
5
6
7
8
9
readln(N);
count:=0;
while N>0 do
  begin
    if not odd(N mod 10) 
      then Inc(count);
    N:=N div 10      
  end;
writeln(count);//количество четных цифр в числе N

@Puporev · 14.10.2010, 17:01

С литерами.
Либо вводить число как численный тип и преобразовать в строку str(n,s);
Либо вводить как строку с проверкой что ввели цифры.
Затем считать.

Pascal
1
2
3
k:=0;
for i:=1 to length(s) do
if s[i] in ['0','2','4','6','8'] then k:=k+1;

@Juliya1994 · 14.10.2010, 17:11 **[ТС]**

а можно литерными ??? тока не множествами .....

@Puporev · 14.10.2010, 17:14

А что '0' это не литера?

@Mad_Dog · 14.10.2010, 17:14

Можно...

Pascal
1
2
3
4
5
6
k:=0;
for i:=1 to length(s) do
  case s[i] of
    '0','2','4','6','8':Inc(k)
  end;
writln(k);

@Puporev · 14.10.2010, 17:15

Или
if ord(s[i]) mod 2=0 then k:=k+1;

@Juliya1994 · 14.10.2010, 17:34 **[ТС]**

а ord это что значит???

@Puporev · 14.10.2010, 17:48

а ord это что значит???

В Паскале есть встроенный Хелп. Говорят что некоторые еще и первых страниц 20 в учебнике прочитали.

@Juliya1994 · 14.10.2010, 17:56 **[ТС]**

а можно так написать if (val(s[i])) mod 2 = 0 then k:=k+1??

Добавлено через 3 минуты
Mad_Dog, а можно вместо case написать так val(s[i],a,l); if a mod 2 =0 then k=k+1 ????

@Puporev · 14.10.2010, 18:31

Juliya1994, val это не функция, а процедура...

Добавлено через 47 секунд
И какой смысл превращать число в строку, а потом обратно в число?

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@Juliya1994 0 / 0 / 0 Регистрация: 14.10.2010 Сообщений: 40

	Определить количество четных цифр в числе 14.10.2010, 15:50. Показов 1754. Ответов 10 Метки нет (Все метки) дано натуральное число, определить кол-во четных цифр в нем. 0

@Juliya1994 0 / 0 / 0 Регистрация: 14.10.2010 Сообщений: 40
	14.10.2010, 17:11 [ТС]
	а можно литерными ??? тока не множествами ..... 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	14.10.2010, 17:14
	А что '0' это не литера? 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	14.10.2010, 17:15
	Или if ord(s[i]) mod 2=0 then k:=k+1; 0

@Juliya1994 0 / 0 / 0 Регистрация: 14.10.2010 Сообщений: 40
	14.10.2010, 17:34 [ТС]
	а ord это что значит??? 0

@Juliya1994 0 / 0 / 0 Регистрация: 14.10.2010 Сообщений: 40
	14.10.2010, 17:56 [ТС]
	а можно так написать if (val(s[i])) mod 2 = 0 then k:=k+1?? Добавлено через 3 минуты Mad_Dog, а можно вместо case написать так val(s[i],a,l); if a mod 2 =0 then k=k+1 ???? 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	14.10.2010, 18:31
	Juliya1994, val это не функция, а процедура... Добавлено через 47 секунд И какой смысл превращать число в строку, а потом обратно в число? 0