Программа получает на вход последовательность целых неотрицательных чисел, каждое число записано в отдельной строке. Последовательность завершается числом 0, при считывании которого программа должна закончить свою работу. Числа, следующие за числом 0, считывать не нужно. найти количество элементов последовательности больших 4
MaRiNa4ToP
1
15.12.2020 10:22
0
Другие вопросы по теме Информатика
Дако031204
11.03.2021 19:34
ValeriaBezzubik
11.03.2021 19:33
nataklmnv
11.03.2021 19:33
polavskaya
28.12.2020 20:51
gerasim4uckirip08lfr
24.02.2020 17:06
5675566
12.05.2020 11:14
nikzhukov989
16.09.2019 19:01
Lizunochek2329
16.09.2019 19:01
Популярные вопросы
- Определи состав воздуха.Азот-___части,Кислород-___,Углекислый газ и другие газы-___....
3 - «Мен, мен едім, мен едім» шығармасын да кім туралы айтылады? Автордың стилін негізге...
2 - 1. Вычисли, записывая в столбик.5623*206653956:3261 425 • 208056385:63...
1 - Кто сможет сделать алгебру ...
1 - .«Қыпшақ Сейітқұл отыз үйлі тобырымен, жұрттың тегіс аттаныс барымтасы бар уақытта,...
2 - 4. Решите уравнение: (х +3 5/11)-7 3/11 =2 6/11...
2 - Решите именно с Дано и черчежом...
1 - Найди периметр треугольника ABC, если его вершины имеют следующие координаты: A(1;2),...
1 - Найдите значение выражения: -26,9 (-1,51) - 73,1 (-1,51)6,4*5 : (-0,0032)...
1 - Заполните таблицу по рассказу А.И.Куприна Гранатовый браслет ...
1
var a,count:integer;
begin
repeat
readln(a);
if a > 4 then
inc(count);
until
a = 0;
writeln;
writeln(count);
end.
Объяснение: