Выполнение заданий ОГЭ по информатике и ИКТ с развёрнутым ответом (Задания 20.2) Циклический алгоритм на ЯП Pascal

2019 г.

Выполнение заданий ОГЭ

по информатике и ИКТ с развёрнутым ответом

(Задания 20.2)

Циклический алгоритм на языке программирования Pascal

Автор: Александрова З.В., учитель физики и информатики

МБОУ СОШ №5 пгт Печенга, Мурманская область

Задание 20.2 заключается в разработке и записи алгоритма на языке программирования. Экзаменуемый самостоятельно выбирает задание в зависимости от того, изучал ли он какой-либо язык программирования.

Формулировки задания 20.2

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

2. Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30000. Программа должна вывести одно число – количество чисел, кратных 4.

Вводим числа в цикле. Выбор цикла осуществляем в зависимости от условия задачи

Цикл while…

Цикл for …

Типы заданий

• Нахождение максимального числа;
• Нахождение минимального числа;
• Нахождение количества чисел;
• Нахождение суммы (произведения) чисел;
• Нахождение среднего арифметического чисел.

Пример 1.

Задание 20.2

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

Программа должна вывести одно число: количество чисел, кратных 4, но не кратных 7.

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

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

4 16

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

2

28 26 24

Алгоритм решения(программа)

Program Zadacha1;

var n,i,a,k: integer;

begin

readln(n);

k := 0;

for i := 1 to n do

begin

readln(a);

if (a mod 4 = 0) and (a mod 7 0)

then k:=k+1;

end;

writeln(k);

readln;

end.

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

Программа должна вывести одно число: максимальное число, кратное 5, но не кратное 7.

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

Пример 2.

Задание 20.2

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

3 10 25 12

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

25

max) then max := a; end; writeln(max); readln; end. " width="640"

Алгоритм решения(программа)

Program Zadacha2;

var n,i,a,max: integer;

begin

readln(n);

max := -1;

for i := 1 to n do

begin

readln(a);

if (a mod 5 = 0) and (a mod 7 0) and (a max) then max := a;

end;

writeln(max);

readln;

end.

Пример 3.

Задание 20.2

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

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

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

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

3 12 25 6

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

18

Решение на языке Паскаль:

Program Zadacha3;

var n,i,a,s: integer;

begin

readln(n);

s := 0;

for i := 1 to n do

begin

readln(a);

if (a mod 6 = 0) and (a mod 7 0)

then s:=s + a;

end;

writeln(s);

readln;

end.

Пример 4.

Задание 20.2

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4, но не кратных 7. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4 и не кратное 7.

Количество чисел не превышает 1000. Введённые числа не превышают 30 000.

Программа должна вывести одно число: количество чисел, кратных 4, но не кратных 7.

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

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

4 16

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

2

28 26 24

Алгоритм решения(программа)

Program Zadacha4;

var n,i,a,k: integer;

begin

readln(n);

k := 0;

for i := 1 to n do

begin

readln(a);

if (a mod 4 = 0) and (a mod 7 0)

then k:=k+1;

end;

writeln(k);

readln;

end.

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

Программа должна вывести одно число: максимальное число, кратное 5, но не кратное 7.

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

Пример 5.

Задание 20.2

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

3 10 25 12

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

25

max) then max := a; end; writeln(max); readln; end. " width="640"

Решение на языке Паскаль:

Program Zadacha5;

var n,i,a,max: integer;

begin

readln(n);

max := -1;

for i := 1 to n do

begin

readln(a);

if (a mod 5 = 0) and (a mod 7 0) and (a max) then max := a;

end;

writeln(max);

readln;

end.

Пример 6.

Задание 20.2

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

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

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

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

3 12 25 6

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

18

Алгоритм решения(программа)

Program Zadacha6;

var n,i,a,s: integer;

begin

readln(n);

s := 0;

for i := 1 to n do

begin

readln(a);

if (a mod 6 = 0) and (a mod 7 0) then s:=s + a;

end;

writeln(s);

readln;

end.

Пример 7.

Задание 20.2

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

Программа должна вывести одно число – минимальное число, оканчивающееся на 4.

Алгоритм решения(программа)

Program Zadacha7;

var i, n, min, a: integer;

begin

readln(n);

min:=30000;

for i:=1 to n do begin readln(a);

if (a

end;

writeln(min);

readln;

end.

Пример 8.

Задание 20.2

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

Программа должна вывести одно число – количество чисел, оканчивающихся на 6.

Var i, n, k, a: integer;

BEGIN

Readln(n); k:=0; for i:=1 to n do begin readln(a);

if a mod 10 =6 then k:=k+1;

end; writeln(k); end.

Алгоритм решения(программа)

Program Zadacha8;

Program Zadacha7;

Var i, n, k, a: integer;

var i, n, min, a: integer;

begin

BEGIN

readln(n);

Readln(n);

k:=0;

min:=30000;

for i:=1 to n do begin readln(a);

for i:=1 to n do begin readln(a);

if (a

if a mod 10 =6 then k:=k+1;

end;

end;

writeln(min);

writeln(k);

readln;

readln;

end.

end.

Задание 20.2

Самостоятельная работа (распечатка на карточках).

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

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

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

20

Спасибо

за отличную работу!