Войти Регистрация Спроси ai-bota

Запросить 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. Выбери верный ответ....

Milykenon101

18.01.2023 21:32

с информатикой! Виды ЛВС по передачи данных (неск. ответов) 1. сеть с сервером 2. проводная сеть 3. беспроводная (радио) сеть 4. сеть без сервера...

LilauSen

30.08.2020 20:00

Задание по VBA excel....

Victoria0NK

08.04.2023 21:20

, это надо сделать в Python. Перевод: создать программу, которая находит наименьшую цифру в многочисленном(многозначном) числе...

znanijanet2017

21.03.2023 02:23

Чи може виконання циклу з лічильником ніколи не закінчитися? Поясніть свою відповідь. Наведіть приклад....

Каринакарина111

22.03.2022 00:47

Сделайте так чтоб я видел как все делается( формулы, куда что записывать). Все делается в Excel...

snezhana9197

07.05.2023 15:10

Значение выражения 216^5 + 6^3 − 1 − X записали в системе счисления с основанием 6, при этом в записи оказалось 12 цифр 5. При каком минимальном целом положительном...

lizcarpova

20.09.2020 20:55

Изучаю программу MatLab Впервые пришёл в такую тему как Матлаб, хочу написать код для распознавания символа W. Вот что я путём эксперимента написал для А, [alphabet,...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку