Найти количество положительных чисел, кратных 7 (информатика 9 класс): дана последовательность из N чисел, количество чисел вводится с клавиатуры. Числа выбираются из промежутка [ 10; 50 ] .
кто в этом разбирается, напишите программу, нужна пятёрка. Есть ещё две задачи,
hh222
2
08.12.2020 11:06
1
Другие вопросы по теме Информатика
Nikki21
13.04.2021 19:22
nelindos18
13.04.2021 19:22
lfif123456789
19.09.2019 03:00
280605
19.09.2019 03:00
reallyrodion
19.09.2019 02:50
ress334
19.09.2019 02:50
MaМа
19.09.2019 02:50
bezzzdarnost
19.09.2019 02:50
aksu4
19.09.2019 02:50
Популярные вопросы
- Полезные ископаемые Китайсько-коркйськаответьте...
2 - Образуйте видовую пару от глаголов: махать, сверкать, толкать,...
2 - Знайдіть площу паралелограма якщо його діагональ 12 см і перпендикулярна...
1 - Здравствуйте решить Пробую 2 часа ...
2 - 19. Орфографический анализ. Укажите варианты ответов, в которых...
1 - Записати рівняння реакції сульфатної кислоти з Натрій гідроксидом....
1 - Выпишите слова по колонкам: в одну – отрицательные местоимения,...
1 - Порівняйте статево-вікові піраміди населення Японії, Китаю та Індії...
3 - решить алгебру 1)(k+2)в 3 степени+8 след пример 2)(a+3)в 3 степени...
3 - Рули у опш2. Определите площадь плоской льдины, которая может удержать...
3
var i,M,K,N:integer;
begin
Readln(N);
K:=0;
for i:=1 to N do
begin
readln(M);
if M mod 7 = 0
then
begin
K:=K+1;
end;
end;
write(K);
end.