Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
sergiu21
31.01.2020 23:09 •
Информатика
Найдите количество чётных цифр заданного числа в программе turbopascal, используя функцию
Показать ответ
Ответ:
mariooouvanov
04.10.2020 21:45
Var a:integer;
function kol(n:integer):integer;
var k:integer;
begin
k:=0;
while n>0 do
begin
if n mod 2 = 0 then k:=k+1;
n:=n div 10;
end;
kol:=k;
end;
begin
write('a = ');
readln(a);
writeln('Количество четных цифр = ',kol(a));
end.
Пример:
a = 123465
Количество четных цифр = 3
0,0
(0 оценок)
Популярные вопросы: Информатика
dencommission
03.09.2022 01:30
Всем , что это за ошибка кто нить сталкивался с этим ïîäêëþ÷åíèå íå óñòàíîâëåíî, ò.ê. êîíå÷íûé êîìïüþòåð îòâåðã çàïðîñ íà ïîäêëþ÷åíèå. вот если да напишите что за ошибка и как её...
hadika2006
03.09.2022 01:30
Вычислите сумму положительных элементов, стоящих в столбцах с чётными номерами. (ответ желательно полностью) + составить к этой блок-схему...
alena123141
18.12.2022 21:26
Решить • найдите сумму цифр числа; • найдите первую цифру числа; • поменяйте порядок цифр числа на обратный; • найдите количество четных цифр числа; • найдите наибольшую цифру числа;...
Leo100Danik1
23.07.2022 20:15
Два текста содержат одинаковое количество символов. Первый текст состаален из символов плфавита мощностью 8 , а второй текст- из символов 512 . Ао сколько раз количество символов...
utyak717
13.11.2022 05:34
Выполняем в тетради.Заполни таблицу. В каких режимах работает гироскопический датчик?...
zaharsteam
19.08.2022 06:22
Можете такую таблицу сделать?...
coolsceleton98
21.12.2020 22:09
Создать проект, где вводится расстояние, цена бензина, потребление бензина и вычисляется стоимость поездки на дачу. Также ставится галочка для расчетра стоимости в одно направление...
XxXKotikXxX
20.11.2020 19:52
Задание на С# Задание: Дан массив, состоящий из целых чисел. Нумерация элементов начинается с 0. Напишите программу, которая выведет элементы массива, номера которых четны (0, 2,...
mrvipdanchannep0793v
06.02.2021 22:21
Что делать, игра не скачивается с диска, windows 10...
shishkinaviolet
31.01.2021 20:08
1. Требуется создать метод для вычисления определенного интеграла методом прямоугольников с заданной величиной шага dx. Создайте класс для реализации на основе следующего каркаса:...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
function kol(n:integer):integer;
var k:integer;
begin
k:=0;
while n>0 do
begin
if n mod 2 = 0 then k:=k+1;
n:=n div 10;
end;
kol:=k;
end;
begin
write('a = ');
readln(a);
writeln('Количество четных цифр = ',kol(a));
end.
Пример:
a = 123465
Количество четных цифр = 3