Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
oroz9898
08.02.2023 00:59 •
Информатика
Pascal abc. найти количество четверок в числе, используя crt. заранее : )
Показать ответ
Ответ:
gonigh
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 оценок)
Популярные вопросы: Информатика
maulee502owkszf
05.01.2020 14:48
Процесс преобразования электрических импульсов в аналоговый сигнал...
Rumyantssseva
26.02.2020 11:08
Какое из определений наиболее точно описывает инфографику? Это предоставления информации в наиболее сжатом виде. Это графический предоставления информации в наиболее понятном и...
толька54
26.05.2020 10:22
Найти количество чётных чисел на отрезке от 10 до 30...
vdyblenkoo
12.01.2020 04:01
Примером хранения числовой информации может служить: а) разговор по телефону б) запись на диске в) таблица умножения г) в книге...
karina6662
30.03.2020 06:11
Transfer result of expression to decimal, octal and hexadecimal notations 101101,1002,-2) then calculate using result the next: xsx44.1 (8). x(16) : 1(16)....
маринчик18
24.03.2020 21:39
Напишите сочинения-миниатюры на темы: «Кулигин — просветитель или юродивый?», «Портрет Кабанихи». А. Н. Островкий...
JadenGirl
24.03.2020 21:39
Визначити коефіцієнта тертя кочення автомобіля, що рухається зі швидкістю 60км/год по колу діаметром 220,6 м....
kavilochka
02.02.2022 18:25
Сколько квадратных метров содержит 1 га?...
кракодиллох1
02.02.2022 18:25
Қазақстанда 30 (отызыншы) тамызда қандай мейрам откізіледі? ...
kudryashovaek
12.03.2022 13:30
2. Поставити дієслова у відповідному часі групи Simple та перекласти речення. .Ukraine [to be] one of the largest European countries.Our country (to border]on the Russian Federation,...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.