Begin
read(n);
k:=0;
For var i:=1 to n do
begin
read(a);
if (a mod 3 =0) then k:=k+1;
end;
Writeln(k);
End.
#include lt;iostreamgt;
using namespace std;
int main()
size_t N = 0, val = 0, count = 0;
cin gt;gt; N;
if (N lt; 100) for(size_t i = 0; i lt; N; ++i) cin gt;gt; val;
if (val lt; 300) if (!(val 3)) ++count;
> else cout lt;lt; «Value must be lt; 300» lt;lt; endl;
exit(1);
>
>
> else cout lt;lt; «N must be lt; 100» lt;lt; endl;
>
cout lt;lt; «Count: » lt;lt; count lt;lt; endl;
return 0;
>
Источник: otvechu.com
ОГЭ по информатике. Вторая часть. Определение количество элементов — задачи на Паскаль (Pascal)
Напишите программу, которая в последовательности натуральных чисел определяет КОЛИЧЕСТВО элементов, КРАТНЫХ 8. В последовательности всегда имеется число, кратное 8. Программа получает на вход количество чисел в последовательности, а затем сами числа.
Разбор 15.2 задания | ОГЭ по информатике 2022
Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – КОЛИЧЕСТВО элементов, КРАТНЫХ 8.
Вначале Количество равно нулю. Перебираем в ЦИКЛЕ числа. Если нам попался элемент, кратный 8 (остаток от деления на 8 равен нулю), то мы плюсуем 1 к нашему количеству.
var a, i, quantity, n: integer; begin read(n); quantity:=0; for i:=1 to n do begin read(a); if a mod 8 = 0 then quantity:= quantity + 1; end; writeln(quantity); end.
Определение КОЛИЧЕСТВО элементов, оканчивающихся на 8.
Задача 2
Напишите программу, которая в последовательности натуральных чисел определяет КОЛИЧЕСТВО элементов, оканчивающихся на 8. В последовательности всегда имеется число, оканчивающееся на 8. Программа получает на вход количество чисел в последовательности, а затем сами числа.
Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – КОЛИЧЕСТВО элементов, оканчивающихся на 8.
Вначале Количество равно нулю. Перебираем в ЦИКЛЕ числа. Если нам попался элемент, оканчивающийся на 8 (остаток от деления на 10 равен 8), то мы плюсуем 1 к нашему количеству.
var a, I, quantity, n: integer; begin read(n); quantity:=0; for i:=1 to n do begin read(a); if a mod 10 = 8 then quantity:= quantity + 1; end; writeln(quantity); end.
Определение КОЛИЧЕСТВО элементов, БОЛЬШИХ 10.
Задача 3
Напишите программу, которая в последовательности натуральных чисел определяет КОЛИЧЕСТВО элементов, больших 10. В последовательности всегда имеется число, который больше 10. Программа получает на вход количество чисел в последовательности, а затем сами числа.
Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – КОЛИЧЕСТВО элементов, оканчивающихся на 8.
Разбор 15.2 задания | ОГЭ по информатике 2021
Вначале Количество равно нулю. Перебираем в ЦИКЛЕ числа. Если нам попался элемент, который больше 10, то мы плюсуем 1 к нашему количеству.
var a, i, quantity, n: integer; begin read(n); quantity:=0; for i:=1 to n do begin read(a); if a > 10 then quantity:= quantity + 1; end; Writeln(quantity); end.
Определение КОЛИЧЕСТВО элементов, БОЛЬШИХ 15 и КРАТНЫХ 7.
Задача 4
Напишите программу, которая в последовательности натуральных чисел определяет КОЛИЧЕСТВО элементов, БОЛЬШИХ 15 и КРАТНЫХ 7. В последовательности всегда имеется число, которое БОЛЬШОЕ 15 и КРАТНОЕ 7 Программа получает на вход количество чисел в последовательности, а затем сами числа.
Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – КОЛИЧЕСТВО элементов, БОЛЬШИХ 15 и КРАТНЫХ 7.
Вначале Количество равно нулю. Перебираем в ЦИКЛЕ числа. Если нам попался элемент, который больше 15 И кратное 7 (остаток от деления на 7 равен 0), то мы плюсуем 1 к нашему количеству.
var a, i , quantity, n: integer; begin read(n); quantity:=0; for i:=1 to n do begin read(a); if (a > 15) and (a mod 7 = 0) then quantity:= quantity + 1; end; writeln(quantity); end.
Источник: code-enjoy.ru
ОГЭ 15.2 — 1 определяет количество чисел, кратных 4, но не кратных 7
Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4, но не кратных 7. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4 и не кратное 7.
Количество чисел не превышает 1000. Введённые числа не превышают 30 000.
Программа должна вывести одно число: количество чисел, кратных 4, но не кратных 7.
Пример работы программы:
| Входные данные | Выходные данные |
| 4 16 28 26 24 |
2 |
Демоверсия ОГЭ 2020 по информатике – задание №15.2
Решение:
Источник: informatikaexpert.ru