Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
О127
14.05.2023 05:33 •
Информатика
Написать программу которая для введённого пятизначного числа выводит количество нулей в нем
Показать ответ
Ответ:
Nik0name1
31.07.2020 13:05
Вот уже писал.
uses crt;
var a,n,i:integer;
begin clrscr;
write('Vvedite chislo: ');
read(a); n:=0;
while a<>0 do begin
if a mod 10=0 then inc(n);
a:=a div 10;
end;
writeln('N=', n);
end.
0,0
(0 оценок)
Ответ:
ilia9999999999
31.07.2020 13:05
var
n: integer;
begin
read(n);
write(ord(n mod 10 = 0) + ord(n div 10 mod 10 = 0) + ord(n div 100 mod 10 = 0) + ord(n div 1000 mod 10 = 0));
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
ttt123634
05.11.2022 13:24
Для кодирования одного из цветов палитры служит двоичный код 001 сколько цветовсодержит па...
lolabrikoslol
05.11.2022 13:24
Врамках какой науки сформировалась наука информатика? а) в рамках кибернетики б) в рамках в) в рамках журналистики г) в рамках электроники....
lizarodionov6Liza
22.03.2022 21:44
Требовалось написать программу, при выполнении которой с клавиатуры вводится последовательность из шести неотрицательных целых чисел, не превышающих 106, подсчитывается...
kurbanovkurban1
28.08.2020 04:29
Производится двухканальная (стерео) звукозапись с частотой дискретизации 48 кгц и 32-битным разрешением, результаты записываются в файл, сжатие данных не используется....
LINALINA123456
17.05.2022 18:27
8вариант. задан массив м, состоящий из n целочисленных элементов. упорядочить элементы таким образом, чтобы вначале располагались все положительные аргументы, а после...
KNSVAL
17.05.2022 18:27
Задан массив м, состоящий из n целочисленных элементов. упорядочить элементы таким образом, чтобы вначале располагались все положительные аргументы, а после них все...
Dan0304
13.06.2022 17:53
Рассчитайте необходимый объем видеопамяти для режима с разрешением 800 на 600 точек и глубиной цвета 24 бита на точку...
kirakoveduard
01.12.2022 04:58
Информационная емкость сообщения о том, что из корзины, где лежало некоторое количество разноцветных шаров, достали зеленый шар, несет в себе 0, 375 байта информации....
Andrianovnd
15.02.2020 21:49
При форматировании слов изменяется... А) размер символов В) отступ абзаца С) расстояние между строками Д) все...
kolika2016
03.12.2020 04:18
Проанализировав таблицу соотношений разрешения и диагонали экранов, выбрать только варианты сверх комфортных разрешений: 1. Разрешение (800*600)/диагональ 9 дюймов 2....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
uses crt;
var a,n,i:integer;
begin clrscr;
write('Vvedite chislo: ');
read(a); n:=0;
while a<>0 do begin
if a mod 10=0 then inc(n);
a:=a div 10;
end;
writeln('N=', n);
end.
n: integer;
begin
read(n);
write(ord(n mod 10 = 0) + ord(n div 10 mod 10 = 0) + ord(n div 100 mod 10 = 0) + ord(n div 1000 mod 10 = 0));
end.