Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
25marta52
11.09.2022 00:33 •
Информатика
Запросить 40 чисел подсчитать количество чисел равных 0
Показать ответ
Ответ:
саша4278
06.10.2020 20:53
Program n1;
var i,k,a: integer;
begin
k:=0;
for i:=1 to 40 do begin
readln(a);
if a=0 then k:=k+1;
end;
write(k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Illia1Z
13.01.2020 01:05
Решить полностью. сделать файл Excel по медицинской информатике...
lisovskymaxim2006
27.11.2020 18:33
PYTHON Напишите программу, которая считывает строку и определяет, какой символ в ней встречается раньше – “А” или “Б” – и выводит его на экран. Поиск осуществляется...
vovakara3434
05.10.2020 23:15
Дано окно папки Windows. Выбери верный ответ....
54526
22.07.2021 12:00
Не понимаю как это делать. Подскажите))) Информатика. Можете просто рассказать, сделаю сам. Что там за формула, как и что делать Условие: (Табличный процессор Excel)...
Бокс111
14.07.2020 12:15
Как формируется индивидуальное информационное пространство?...
киса2013438
20.02.2020 18:20
Выбери правильный ответ в информатике...
Milykenon101
18.01.2023 21:32
с информатикой! Виды ЛВС по передачи данных (неск. ответов) 1. сеть с сервером 2. проводная сеть 3. беспроводная (радио) сеть 4. сеть без сервера...
bellason
31.03.2021 02:16
Что это за значок в информатике?...
Victoria0NK
08.04.2023 21:20
, это надо сделать в Python. Перевод: создать программу, которая находит наименьшую цифру в многочисленном(многозначном) числе...
adolshinavika
13.05.2023 02:29
Em cuantas regiao o brasil esta dividido...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var i,k,a: integer;
begin
k:=0;
for i:=1 to 40 do begin
readln(a);
if a=0 then k:=k+1;
end;
write(k);
end.