Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
lermolen
04.11.2021 22:21 •
Информатика
Впаскале ввести целое число и определить сколько в этом числе троек. я не в программировании, поэтому ))
Ответ:
konovalov201
02.10.2020 13:10
Var a,b,c,d:integer;
begin
writeln('введите числo');
readln(a);
b:=0;
while a<>0 do begin
c:=a mod 10;
a:=a div 10;
if c=3 then b:=b+1;
end;
writeln('количество троек в числе ',b);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
сакуру3356
17.01.2020 10:42
Решить . в классе 25 ущащихся. из них 5 человек не умеют играть ни в шашки, ни в шахматы. 18 учащихся умеют играть в шашки, 20 - в шахматы. сколько человек из класса играют и в шашки,...
petr0poroshenko
23.03.2022 20:08
Вася построил забор из имеющихся досок разной длины. если рядом стоящие доски отличаются не более чем на 10 сантиметров, вася считает эту часть забора ровной. сколько есть неровных...
Викуля151515
23.03.2022 20:08
Pascal 1. дан прямоугольный треугольник с катетами a и b. составьте программу для вычисления гипотенузы c, периметра, площади, радиуса вписанной и описанной окружности. напишите...
Ярослав4497
27.10.2020 05:18
Человек откладывает х рублей в месяц, эта сумма не постоянна и может менятся от 1000 до 150т.р, человек собирает 1,7м.р для покупки авто. написать программу за сколько месяцев человек...
daniil2003m
01.03.2020 22:31
Решить задачу.Пятеро одноклассников: Ирена, Тимур, Таня, Саша и Коля стали победителями олимпиад школьников по физике, математике, информатике, литературе и географии. Известно,...
Yana2502
27.07.2022 11:15
Файл размером 7 мбайт передается через некоторое соединение за 28 секунд. определите размер файла (в кбайт), который можно передать через другое соединение с вдвое большей скоростью...
DaimonBash
14.05.2023 14:39
Бабушка отличнику васе сказала: если в комнате будет темно, то включи свет . исходя из того, что вася хорошо учится в школе, он научился чётко придерживаться инструкций. что он должен...
Саша13398
09.04.2021 07:43
Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 6. программа получает на вход количество чисел в последовательности, а затем...
nekodaf
07.01.2020 13:39
Вочереди стоят мальчики и девочки. в начале каждой минуты, если за каким-то мальчиком стоит девочка, то он меняется с ней местами, пропуская ее вперед (суммарное количество в очереди...
Vladislav525245264
07.01.2020 13:39
Лучшим методом проверки того что онлайн-форма введена полностью является а) проверка типа данных б) проверка диапозона данных в) проверка полей г) распознавание графических изображений...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
writeln('введите числo');
readln(a);
b:=0;
while a<>0 do begin
c:=a mod 10;
a:=a div 10;
if c=3 then b:=b+1;
end;
writeln('количество троек в числе ',b);
end.