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

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

Ответ:

olegkarimov20

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

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

ep1cook1e

20.08.2022 08:51

Когда учитель достиг просветления, он понял, что должен раздать свои богатства, причём сделать это следующим образом: в первый день разделить все свои золотые монеты на 8 равных...

skrrrpapa

15.11.2022 06:29

Решите на паскале на if case.если введённое число положительное, то вычесть из него 5, если равно нулю, то прибавить 20, во всех остальных случаях разделить на 6...

polinacavina

15.11.2022 06:29

Выпишите натуральные целые числа, принадлежащие следующим числовым промежукам: а)(1011*2; 10001*2) б)(768*9; 1028*9) в)(1001*2; 101011*2)...

spiner21

19.12.2022 15:14

Имеется ноутбук hp pavilion g6.в диспетчере устройств во вкладке видеоадаптеры стоят 2 стандартных vga графических адаптера,один работает а на втором восклицательный знак.как исправить...

Spin4ik

19.12.2022 15:14

Создать электронную таблицу значений и построить график функции y = x в кубе дробь х в квадрате + 1 на отрезке (-3: 3) с шагом 0.5...

dayanka13

13.06.2020 15:04

1,3,5,6,8,9,1011,12,13,15,16,18,19,20,22,23,25,26,28,29,30,31,32,33,34,35...

tyulegenevapolina

16.04.2021 16:11

Задан массив из 10000 элементов. Найти медиану этого массива (Pascal ABC)...

drswag12312

12.02.2022 19:59

Вчем const n=20; type vector= array[1..n] of integer; вычислить для вектора x: произведение всех положительных элементов массива, которые кратны 17 я сделала так , но все время...

умникARM

06.06.2021 06:50

Как называется устройство находящееся на пересечении множеств 1) планшет 2)ноутбук 3)смартфон 4)нетбук...

LizaDemidova3101

06.06.2021 06:50

Файл размером 4 кбайта передаётся через некоторое соединение со скоростью 2048 бит в секунду. определите размер файла (в байтах), который можно передать за то же время через другое...

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

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