Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
ilyfghjjjh
26.02.2023 02:27 •
Информатика
Pascal abc. найти количество четверок в числе, используя crt. заранее : )
Показать ответ
Ответ:
ezdinaa
05.10.2020 15:12
Program n1;
uses crt;
var n,m,p,k:integer;
begin
write('введите число: ');
readln(n);
m:=n;
k:=0;
while m<>0 do begin
p:=m mod 10;
if p=4 then k:=k+1;
m:=m div 10;
end;
writeln('кол-во 4: ',k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Ученик1090230147
23.06.2020 02:17
Каждый символ в тексте закодирован двумя байтами. определите информационный объем следующего предложения в кавычках: я вас любил, чего же (а.с.пушкин)...
negatiff95
23.06.2020 02:17
Уточните, каков объем оперативной памяти компьютера (у меня 297 (можете округлить до 300) гб),к которому вы имеете доступ дома или в школе .сколько страниц текста...
Maryan2609
19.04.2021 02:46
Тимофей закодировал своё имя по следующему алгоритму : сначала он выписал номера букв алфавита (а-1,б-) в своём имени друг за другом без пробелов и знаков препинания...
inber657205
20.03.2021 00:21
Дана строка ,заменить символ ? на ! язык pascal...
NcsON
16.08.2021 23:08
ЗАДАНИЕ No6 ТЕКСТ ЗАДАНИЯ Берілген сұрақтарға жауап бер: (ответить на вопросы) 1.Қандай мамандық түрлерін білесің? 2.Жақсы маман болу үшін адамға қандай қасиеттер...
трнвчполт755
22.01.2023 00:32
1.Написати прислів я з твору Цвіт щастя Багдаг Лепкий.(5)...
7164260
05.09.2020 06:29
1. Площадь треугольника ABC равна 60 см, сторона АС-15 см, ДА = 30°. Найдите AB. Дано: АВС S-cm² АС-15 см 2A-30 Найти: AB Активан Win Чтобы акти...
angelikamaxowoz4v
10.08.2020 00:29
А. int(input()) else: ? K=A-3 print(K)...
marta12t
01.01.2020 22:14
ПРИДУМАЙ ЗАДАЧУ НА ВЫБОР ВАРИАНТОВ ЗАПИШИ ЕЁ РЕШЕНИЕ. МОЖЕШЬ ИСПОЛЬХОВАТЬ 《ДЕРЕВО ВОЗМОЖНОСТЕЙ》...
gffgfytdtdety
09.12.2022 18:19
Найдите значение выражения [- 2,8] + [-1, 4 ]+ [- 3,6]...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses crt;
var n,m,p,k:integer;
begin
write('введите число: ');
readln(n);
m:=n;
k:=0;
while m<>0 do begin
p:=m mod 10;
if p=4 then k:=k+1;
m:=m div 10;
end;
writeln('кол-во 4: ',k);
end.