Дано натуральное число. Определите, сколько чётных цифр используется в записи этого числа

@Nikolay_Zhukov · Регистрация: 02.06.2015

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

Дано натуральное число . Определите, сколько чётных цифр используется в записи этого числа.
Нашёл на C++ а на Pascal ABC не нашёл ( Подскажите код .

@Joy · 03.06.2015, 07:04

Pascal

1
2
3

begin
  writeln('К-во четных цифр в записи числа:',readstring('введите число:').ToCharArray.Where((c:char)->strtoint(c) mod 2=0).count);
end.

Добавлено через 3 минуты
или на обычном паскале:

Pascal

var
  n,k:integer;
begin
  write('Введите число:');
  readln(n);
  repeat
    if n mod 10 mod 2=0 then k:=k+1;
    n:=n div 10;
  until n=0;
  writeln('Количество четных цифр:',k);
end.

@volvo · 03.06.2015, 16:30

Pascal

1	readstring().ToCharArray().Count(ch -> not Odd(StrToInt(ch)))

можно сделать в .NET4+

Новые блоги и статьи
Элементы алгоритмизации hw_wired 28.01.2025 Основы алгоритмизации В современном мире алгоритмы играют фундаментальную роль в развитии информационных технологий и программирования. Понимание основ алгоритмизации является ключевым элементом в. . .	Человек и информация hw_wired 28.01.2025 Введение: роль информации в познании мира В современном мире информация играет фундаментальную роль в процессе познания окружающей действительности. Она представляет собой совокупность сведений об. . .	Компьютер и информация hw_wired 28.01.2025 Эволюция вычислительных машин История развития вычислительной техники начинается задолго до появления первых электронных устройств. Человечество всегда стремилось упростить процесс вычислений и. . .	Информационные технологии hw_wired 28.01.2025 Введение в современные технологии работы с информацией В современном мире информационные технологии стали неотъемлемой частью практически всех сфер человеческой деятельности. Они существенно. . .	Информация вокруг нас hw_wired 28.01.2025 Основные понятия информации В современном мире понятие информации является фундаментальным и охватывает практически все сферы человеческой деятельности. Информация представляет собой совокупность. . .	Компьютер для начинающих hw_wired 28.01.2025 Введение в мир компьютерных технологий В современном мире информация стала одним из важнейших ресурсов человечества, определяющим развитие общества и технологий. Наша жизнь неразрывно связана с. . .
[golang] 189. Rotate Array alhaos 28.01.2025 Повороты рукоятки, целочисленный слайс нужно сдвинуть на целое положительное число. Мне очень нравится решение на GO / / https:/ / leetcode. com/ studyplan/ top-interview-150/ package topInterview . . .	КуМир: решение задач на матрицы bytestream 28.01.2025 КуМир представляет собой среду для обучения программированию, которая включает в себя мощные инструменты для работы с матрицами. Матрица в программировании - это двумерный массив, состоящий из. . .	КуМир: решение задач на строки bytestream 28.01.2025 В системе программирования КуМир работа со строковыми данными является одним из важнейших аспектов создания программ. Строки представляют собой последовательности символов, заключенные в кавычки,. . .	КуМир: решение геометрических задач bytestream 28.01.2025 Программирование геометрических задач в среде КуМир становится всё более актуальным в обучении школьников и студентов. КуМир — это разработанная в России обучающая программная среда, предназначенная. . .	КуМир, исполнитель Водолей: Задачи и решения bytestream 28.01.2025 КуМир — это образовательная среда для обучения программированию. Она предлагает пользователям разнообразные инструменты для разработки и отладки программ, что особенно ценно для студентов и. . .	КуМир, исполнитель Чертежник: Решение задач bytestream 28.01.2025 КуМир (Комплект Учебных МИРов) представляет собой образовательную среду для обучения основам программирования и алгоритмизации. Исполнитель Чертежник работает на координатной плоскости, где может. . .

@Nikolay_Zhukov 0 / 0 / 0 Регистрация: 02.06.2015 Сообщений: 6
		1
	Дано натуральное число. Определите, сколько чётных цифр используется в записи этого числа 02.06.2015, 19:36. Показов 1790. Ответов 2 Метки нет (Все метки) Дано натуральное число . Определите, сколько чётных цифр используется в записи этого числа. Нашёл на C++ а на Pascal ABC не нашёл ( Подскажите код . 0

	03.06.2015, 16:30

Дано натуральное число. Определите, сколько чётных цифр используется в записи этого числа

Решение