Подготовка к государственной итоговой аттестации. ОГЭ.

Написание программы в Паскале с использованием циклов

15.2

  Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 6. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число — сумму чисел, кратных 6.

Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 6. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число — сумму чисел, кратных 6.

Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 6. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число — сумму чисел, кратных 6.

Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 6. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число — сумму чисел, кратных 6.

Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, кратных 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 6. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число — сумму чисел, кратных 6.

Название программы

Блок описания переменных

Program z_1

Программа получает на вход количество чисел в последовательности

readln(n);

Начало программы

Программа получает на вход сами числа

var n, s, k, g: integer;

Количество чисел не превышает 100.

readln(n);

for k:=1 to n do

readln(g);

begin

s:=0;

Начало операторов

Начальное значение суммы

Введённые числа не превышают 300.

for k:=1 to n do

readln(g);

n

g

Программа должна вывести одно число — сумму чисел, кратных 6.

begin

Найти кратные 6 числа

Найти сумму этих чисел

if (g mod 6 = 0) then

if (g mod 6 = 0) then

s:=s+g;

s:=s+g;

Вывод суммы

Конец цикла «для»

writeln(s);

Конец программы

end;

end.

Пример работы программы:

Входные данные

Выходные данные

3 12 25 6

18

var n, s, k, g: integer;

begin

s:=0;

readln(n);

for k:=1 to n do

begin

readln(g);

if (g mod 6 = 0) then s:=s+g;

end;

writeln(s);

end.

• 15.2  Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число — количество чисел, кратных 4.

Пример работы программы:

Входные данные

3 16 26 24

Выходные данные

2

15.2  Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, кратное 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число — максимальное число, кратное 4.

Пример работы программы:

Входные данные

3 8 16 11

Выходные данные

16