Решение задачи 15.2

назначению:
Вычисление суммы;
Вычисление количества;
Вычисление среднего арифметического;
Нахождение минимального/максимального числа последовательности.

1 до количества чисел в последовательности:
4.1. Ввод числа последовательности;
4.2. Если

число меньше 50 и число больше 10, то добавить его в сумму.
Вывести значение суммы.

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

end; end.

Обязательный блок программы

n – количество чисел
а - число последовательности

инициализация переменных
begin
readln(n); // ввод количества чисел в последовательности sum := 0;

// обнуление переменной суммы for i := 1 to n do // цикл от 1 до количества чисел в последовательности
begin
readln(a); // ввод числа последовательности if (a < 50) and (a >10) then sum := sum + a; // если число меньше 50 и число больше 10, то добавить его в сумму end; writeln (sum); // Вывести значение суммы end.

Пока):
4.1. Если число кратно 3 и число оканчивается на 6,

то добавить его в сумму;
4.2. Ввод числа последовательности.
Вывести значение суммы.

integer;
begin
readln (a);
sum:=0; repeat
…………….

until a=0;
……………….. end.

Обязательный блок программы

а - число последовательности

// ввод первого числа последовательности sum := 0; // обнуление переменной

суммы repeat // цикл ДО
if (a mod 3=0) and (a mod 10=6) then sum := sum + a;
// если число кратно 3 и число оканчивается на 6, то добавить его в сумму readln(a); // ввод числа последовательности until a=0; // условие выхода из цикла writeln (sum); // Вывести значение суммы end.

Repeat!

Признак окончания цикла - 0

// ввод первого числа последовательности sum := 0; // обнуление переменной

суммы while a<>0 do// цикл ПОКА, условие входа в цикл
begin
if (a mod 3=0) and (a mod 10=6) then sum := sum + a;
// если число кратно 3 и число оканчивается на 6, то добавить его в сумму
readln(a); // ввод числа последовательности end; writeln (sum); // Вывести значение суммы end.

While!

Признак окончания цикла - 0

1 до количества чисел в последовательности:
4.1. Ввод числа последовательности;
4.2. Если

число кратно 4 и число оканчивается на 6, то счетчик увеличить на 1.
Вывести значение счетчика.

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

end; end.

Обязательный блок программы

n – количество чисел
а - число последовательности

инициализация переменных
begin
readln(n); // ввод количества чисел в последовательности k := 0;

// обнуление переменной счетчика for i := 1 to n do // цикл от 1 до количества чисел в последовательности
begin
readln(a); // ввод числа последовательности if (a mod 4=0) and (a mod10=6) then inc(k); //если число кратно 4 и число оканчивается на 6, то увеличить счетчик на 1 end; writeln (k); // Вывести значение счетчика end.

Пока):
4.1. Если число кратно 6 и число оканчивается на 0,

то увеличить счетчик на 1;
4.2. Ввод числа последовательности.
Вывести значение счетчика.

integer;
begin
readln (a);
k:=0; repeat
…………….

until a=0;
……………….. end.

Обязательный блок программы

а - число последовательности

// ввод первого числа последовательности k := 0; // обнуление переменной

счетчика repeat // цикл ДО
if (a mod 6=0) and (a mod 10=0) then inc (k); //если число кратно 6 и число оканчивается на 0, то увеличить счетчик на 1
readln(a); // ввод числа последовательности until a=0; // условие выхода из цикла writeln (k); // Вывести значение суммы end.

Repeat!

Признак окончания цикла - 0

// ввод первого числа последовательности k := 0; // обнуление переменной

суммы while a<>0 do// цикл ПОКА, условие входа в цикл
begin
if (a mod 6=0) and (a mod 10=0) then k := k + 1; //если число кратно 6 и число оканчивается на 0, то увеличить счетчик на 1
readln(a); // ввод числа последовательности end; writeln (k); // Вывести значение счетчика end.

While!

Признак окончания цикла - 0

и количества чисел, удовлетворяющих условию.

До (Цикл Пока):
4.1. Если число кратно 6 и число оканчивается

на 0, то:
4.1.1 увеличить счетчик на 1;
4.1.2. добавить число в сумму;
4.2. Ввод числа последовательности.
Если счетчик равен 0, то вывести «net» иначе вывести значение суммы, разделенной на счетчик.

переменных
begin
readln (а); // ввод первого числа последовательности sum := 0; //

обнуление переменной суммы
k := 0; // обнуление переменной счетчика repeat // цикл ДО
if (a mod 6=0) and (a mod 10=0) //если число кратно 6 и число оканчивается на 0, то
then
begin
sum:=sum + a; // добавить переменную в сумму
inc (k); // увеличить счетчик на 1
end; readln (a); // ввод числа последовательности until a=0; // условие выхода из цикла if k=0
then writeln (‘net’) // Вывести сообщение, что таких чисел нет
else writeln (sum/k); // Вывести значение среднего арифметического end.

Признак окончания цикла - 0

последовательности;
Цикл от 1 до количества чисел последовательности:
4.1. Ввод числа последовательности;
4.2.

Если остаток от деления числа на 10 не равен 3 и число больше эталона, то:
4.2.1 Присвоить эталону значение этого числа;
Вывод значения эталона.

// инициализация переменных
begin
readln(n); // ввод количества чисел последовательности max := -1;

// Присвоение заведомо ложного значения переменной эталону
for i:=1 to n do // цикл ДО
begin
readln(a); // ввод числа последовательности if (a mod 3<>=0) and (a > max) //если число не кратно 3 и число больше эталона, то
then max:=a; // эталону присвоить значение этого числа
end;
writeln (max); // Вывести значение эталона end.

последовательности;
Цикл До (Цикл Пока):
4.1. Если число больше 9 и меньше

80 и больше эталона, то:
4.1.1 Присвоить эталону значение этого числа;
4.2. Ввод числа последовательности.
Вывод значения эталона.

переменных
begin
max := -1; // Присвоение заведомо ложного значения переменной эталону
readln

(a); // ввод первого числа последовательности
repeat // цикл ДО
if (a >9) and (a <80) and (a > max) //если число больше 9 и меньше 80
и число больше эталона, то
then max:=a; // эталону присвоить значение этого числа
readln(a); // ввод числа последовательности until a=0; // условие выхода из цикла
writeln (max); // Вывести значение эталона end.

Признак окончания цикла - 0

Д.М. (2018, 192с.) 
ОГЭ 2018. Информатика и ИКТ. Типовые экзаменационные варианты. 10 вариантов. Крылов

С.С., Чуркина Т.Е. (2018, 144с.) 
ОГЭ 2018. Информатика. 20 тренировочных вариантов экзаменационных работ. Ушаков Д.М. (2018, 208с.) 
Информатика и ИКТ. Подготовка к ОГЭ-2016. 14 тренировочных вариантов.  Под ред. Евич Л.Н.

Презентацию подготовила учитель информатики МБУ «Лицей № 51» г.о. Тольятти Нехорошева Марина Анатольевна