Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Denis223423
04.06.2020 19:47 •
Информатика
Pascal abc дано целое положительное число определить сколько в-нём двоек и нулей в заданном числе
Показать ответ
Ответ:
zadireevaalina
13.07.2020 10:09
Var a,k,n,m:integer;
begin
writeln('Введите число');
readln(a);
m:=a; k:=0; n:=0;
while a<>0 do begin
if a mod 10=2 then k:=k+1
else if a mod 10=0 then n:=n+1;
a:=a div 10;
end;
writeln('В числе ',m,' ',k,' двоек и ',n,' нулей');
readln
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Анастасия201811
16.10.2021 01:31
Складіть блок-схему алгоритму знаходження х з рівняння ах + b = с. Виконайте його при: а = 2, b = -8, с = 18...
katy54445
24.09.2020 12:20
На рисунке представлена программа движения робота. Внимательно рассмотрите использованные блоки, и обведите кружком буквы верных утверждений ЭТО СОР...
коля827
11.11.2020 20:18
У меня осталось 10 минут. Только правильные ответы...
mmmm0
28.06.2021 05:34
Определите процесс, протекающий с выделением энергии. А) нагревание солнцем воды в бассейнеБ) закипание воды в чайнике над костромВ) приготовление пищи на газовой плитеГ)...
aaablaeva
03.10.2021 02:07
Запишите на языке Python строку: Если разность чисел k и p больше 0, то переменной a присвоить произведение этих чисел *...
Малика20091
09.08.2021 10:55
Задание 2 Развитие роботов с какого года Эти роботы обслуживают станки, печи, прессы, лини переработки, сварочные машины, и т.д. Называются умными, или интеллектуальными...
Ученикdsgfgchugffwgc
07.05.2022 18:55
Sos ученики класса,состоящего из 24 человек,изучают или французский языки.сообщение о том,что ученик изучает язык несёт 3 бита информации.сколько человек изучает французский...
Rumyantssseva
20.04.2021 10:15
1. примеры информационных процессов,происходящих в вашей семье. 2.сравните информационные процессы для животного и растительного мира на примерах....
Megatrolll228
09.02.2023 01:37
Световое табло состоит из лампочек. каждая лампочка может находиться в одном из трех состояний ( включено , выключено или мигает ). какое наименьшее количество лампочек...
РенаКОСЫРЕВА
29.07.2020 22:42
Каждый из вас, работая с одним и тем же учебником, получает разное количество учебников. как вы можете это объяснить?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
writeln('Введите число');
readln(a);
m:=a; k:=0; n:=0;
while a<>0 do begin
if a mod 10=2 then k:=k+1
else if a mod 10=0 then n:=n+1;
a:=a div 10;
end;
writeln('В числе ',m,' ',k,' двоек и ',n,' нулей');
readln
end.