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

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

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

Ответ:

natulina2009

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

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

ewgexaymnik

06.01.2022 02:48

Сколько раз выполнится тело цикла? (в ответ запишите целое число)For x := 0 to 5 do y := sqr(x); ...

Холзи14

27.02.2022 03:25

Як називається інформаційне середовище, яке створює навколо себе людина для власних навчальних потреб?...

kseniy124321

24.05.2021 09:51

НУЖЕН ОТВЕТ Определите, что выведет данная программа: var i: integer; begin for i := 7 to 14 do if (i mod 2 = 0) and (i = 10) then write(i div 2, , ) else if i =...

asvpdsh

22.10.2020 18:13

НУЖЕН ОТВЕТ Чему будет равно выражение, записанное на языке программирования Паскаль? sqrt(12 ∗ (51 + 7) - 20)...

HanjiZ

14.03.2022 03:10

Знайти кількість сторін елементів , кратних 5, масиві А(10) CРОЧНОО ПАСКАЛЬ...

HydRarGyrUm74

03.02.2021 05:17

1какие бд называются рационными? 2 как субд access хранит создаваемые таблицы и средства для обработки данных? 3 каковы основные элементы бд? 4 в чем заключается...

QFARRO

27.06.2020 02:52

Найдите площадь треугольника s=1/2 ah найдите площадь треугольника по двум другим и углу между ними a=\sqrt b^{2} + c^{2} -2 abcos\alpha вывести на экран все пятизначные...

PooКякя

01.01.2023 17:10

Написать программу на python...

catcher1

06.02.2021 05:03

Определите порядок действий компьютера при вычислении выражения: z := x * 24 + 9 * 56 - y div 7 / 8 mod 11 // 1 2 3 4 5 6 7 В ответ запишите семь цифр без разделителей...

LizaLove200468

19.03.2020 04:06

Определите значение переменной b после выполнения фрагмента алгоритма записанного в виде блок-схемы: Найдите значение b...

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

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