Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Данилкамастре
23.01.2022 18:26 •
Информатика
Pascal abc. найти количество четверок в числе, используя crt. заранее : )
Показать ответ
Ответ:
nastyamamontova
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 оценок)
Популярные вопросы: Информатика
спрос3
11.05.2021 03:30
4. Запиши, які з носіїв повідомлень ти використовуєш удома, у школі, удома й у школі.ПаперовіHociiЕлектронніносії...
koool3
01.09.2020 06:37
Вкаком из операторов допущена смысловая ошибка: а. for i: =1 to 20 do p: =p+1; б. while s 3 do s: =s-3; в. repeat k 1 until k: =k+1; г. for i: =10 downto 5 do p: =p+1;...
Kuznecovaalexa2005
27.06.2021 19:00
Напишите программу находящую максимальное из четырех чисел (используйте процедуру для поиска максимального из двух чисел)...
belayazima
27.06.2021 19:00
Чему равно значение переменной после выполнения фрагмента программы? p: =1; for i: =1 to 4 do p: =p*i а. 120 б. 24 в. 4...
fizaliya1992
27.06.2021 19:00
Каково наибольшее целое число x , при котором истинно высказывание : (10 x*x*x) = (20 (x+1)(x+1))...
896426745
02.02.2022 19:26
В одной из кодировок КОИ-8 каждый символ кодируется 8 битами. Дима написал текст (в нём нет лишних пробелов): «J, Cg, Cat, Ruby, Swift, Delphi, Haskell — языки программирования»....
holoupail
25.06.2020 03:12
А4как ты думаешь, или нет ...
holoupail
19.01.2022 08:09
Сколько в 5кбайт в битов?...
NeSharitVMatematike
15.11.2020 22:23
Назовите не менее пяти материальных носителей маляра, которые он использует в своей профессиональной деятельности....
сюрприз23456789
15.11.2020 22:23
На плоскости хоy задана своими координатами точка а. указать, где она расположена (на какой оси или в каком координатном угле) решить в паскале 1 этап постановка величины:...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.