Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Ернур150400
28.05.2022 23:19 •
Информатика
Составьте программу определяющую сколько раз в натуральном числе к встречается цифра равная последней. паскаль авс
Показать ответ
Ответ:
Даниил223223
03.10.2020 10:59
...
begin
readln(a);
c:=amod10;
a:=adiv10; k:=1;
while a>0 do begin
d:=amod10;
if d=c then inc(k);
a:=adiv10;
end;
writeln(k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
01lina10
12.06.2021 02:41
1011101^2+1110111^2 165^8+37^8 22x+44x=100x...
20042007rbn
12.06.2021 02:41
Файл размером 30 кб передаётся через соединение со скоростью 5120 бит в секунду некоторое время. определите на сколько кб меньше можно передать за это же время, если скорость...
Nadezhda136
26.05.2020 09:41
Составить программу по условию: если х =3 то у=6*х2, иначе у=-2*х3 надо....
zyzae
29.06.2022 06:21
Аккаунты Steam, WoT по 15 копеек. Покупаем тут https://bot-t.ru/link/ggammess_bot (аккаунты WoT могу дать бесплтано, контакты для связи в боте)...
labzaekaterina
25.05.2022 10:30
Упростите логическую функцию...
annasevsehkocot
10.07.2021 11:07
Сколько порций по 3 блина выйдет ,если всего испекли 18 блинов? 19 блинов? 25 блинов? решение сделать...
abdulismailova2
10.07.2021 11:07
От основы терпел образуй прилогательное с суфиксом лив...
альбина349
10.07.2021 11:07
Вкаком варианте ответа правильно указаны все цифры, на месте которых в предложении должны стоять запятые? до самого обеда (1) несмотря на горячие протесты (2) няньки и кухарки...
Aleksstak
10.07.2021 11:07
30 ! ! определите вид глаголов: переходный или не переходный! начались предстояло выйти встречалась выходила видел играет решил держать стал просочилась...
км2002
10.07.2021 11:07
Потрібно скласти твір, щоб всі слова починались на літеру -р. будь ласка, іть...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
readln(a);
c:=amod10;
a:=adiv10; k:=1;
while a>0 do begin
d:=amod10;
if d=c then inc(k);
a:=adiv10;
end;
writeln(k);
end.