Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
daniil359
15.04.2021 12:31 •
Информатика
Запишите эту на паскале: дано натуральное число. определить, сколько раз в нем встречается цифра 3
Показать ответ
Ответ:
pavlova62
08.10.2020 13:01
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var (n,k):=(ReadInteger('n='),0);
while n>0 do begin
if n mod 10=3 then k+=1;
n:=n div 10
end;
Writeln('Количество троек в числе равно ',k)
end.
Пример
n= 163243
Количество троек в числе равно 2
0,0
(0 оценок)
Популярные вопросы: Информатика
mada4653
25.11.2021 18:36
За счёт чего в формате jpeg можно менять качество одного и того же изображения?...
Mikich2
14.05.2021 19:00
1.можно ли просматривать веб-страницу без браузера?...
DanaCorgi
11.02.2021 20:53
Предлагается некоторая операция над двумя произвольными трехзначными десятичными числами: 1) записывается результат сложения старших разрядов этих чисел. 2) к нему...
m20m
10.05.2023 17:06
Курсор находится в начале строки.компьютер работает исправно.при попытке нажать на стрелку вверх ничего не происходит-курсор наверх не перемещается.это значит,что :...
husanov18p06h9l
06.05.2023 21:41
1. дано натуральное число n. определить есть ли в нем цифра x. (x, n - вводятся с клавиатуры) 2. напишите программу, которая вводит последовательность целых ненулевых...
21alex1488
06.05.2023 21:41
Написать : петя любит ездить на такси. для него это не только удовольствие от быстрой и комфортной поездки, но и возможность всласть поторговаться с таксистом о цене...
kseniafilipovich09
15.05.2021 03:38
Матрицы. вычислить произведение отрицательных элементов вещественной матрицы bnxn, находящихся под главной диагональю (элементы диагонали не участвуют в обработке)....
arslanovaigiz
15.09.2020 11:46
Найди и замени неправильное число в последовательности.запиши правило последовательности.567 189 66 21 7 сделайте надо...
34224253
05.11.2020 14:44
Сколько времени потребуется для ввода в память компьютера текста романа а. дюма три мушкитера с сканера и программы для распознования текста, если известно, что на...
Куропаткана666гргрг
05.11.2020 14:44
Программа паскаль дано трехзначное число. напишите программу, которая определяет: является ли число перевертышем, т.е числом, десятичная запись которого читается одинаково...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Внимание! Если программа не работает, обновите версию!
begin
var (n,k):=(ReadInteger('n='),0);
while n>0 do begin
if n mod 10=3 then k+=1;
n:=n div 10
end;
Writeln('Количество троек в числе равно ',k)
end.
Пример
n= 163243
Количество троек в числе равно 2