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

Запросить 40 чисел подсчитать количество чисел равных 0

Показать ответ

Ответ:

51179

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 оценок)

Популярные вопросы: Информатика

neznaika168

24.02.2022 15:56

Какую наиболее короткую формулу нужно записать в ячейку A1, чтобы вычислить среднее арифметическ >...

fsb001

17.05.2023 04:51

Айнымалы типі дегеніміз не...

nasibyannn

18.02.2023 06:51

Значение выражения A0DC^16+110^8*11^16-106^10+10000^2-500^10+120^4вычислите в десятичной системе счисления и результат вычисления переведите в шестнадцатеричную систему счисления...

тома510

15.04.2020 22:41

Заполнить массив из 10 элементов случайными числами в интервале [0,100] и подсчитать среднее значение всех элементов, которые 50 , без randomize и прочих изысков ....

дяья928

31.10.2022 22:11

Домашнее задание «Линейные и разветвляющиеся вычислительные процессы» Вариант 2 В тетради составить блок-схемы, задачи решить на компьютере, первая - линейный алгоритм, вторая - разветвляющийся....

TheCool111

01.04.2021 00:56

Рассмотрите базу данных успеваемости...

homonorolla

08.04.2020 17:59

Var y real i: integerbeginy=0; i:=5while i 2 dobegini=1-1y =y+i7endendответ: y=...

Misani

13.06.2022 18:18

Информатика Qbasic задание на фотографии. Нужно составить алгоритм и программу....

Suhih77

11.04.2020 16:43

В хромосомах человека содержится 3079843747 пар нуклеотидов. Сколько Гб информации содержится в этих хромосомах?...

veragusak1994

19.11.2022 13:00

определите значение переменной Y после выполнения фрагмента программы var i, y : integer begin y:=0 for i=1 to 4 do begin y:=y*10 y:=i end end....

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

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