Функции в паскале егэ - Помощь в подготовке к экзаменам и поступлению

Двадцать первое задание из ЕГЭ по информатике — довольно серьёзно задание, которое требует понимания основ программирования и использования функций.

Все сегодняшние задачи из ЕГЭ по информатике будем рассматривать на языке программирования Паскаль.

Что такое Функция в языке программирования Паскаль ?

Функция – это подпрограмма, результатом работы которой является определенное значение.

Рассмотрим пример функции, которая суммируем два числа!

var a, b, summa: integer;

// Функция, которая суммирует два числа.
function F(x:integer; y:integer):integer;
begin
F := x + y;
end; 

BEGIN
Readln(a);
Readln(b);

summa := F(a, b);

WriteLn(summa);
END.

Здесь функция F, которая суммирует два числа.

В главной часте программы, которая заключена между BEGIN и END, запрашиваются два числа с клавиатуры: a и b! Эти два числа передаются в функцию F. В функции эти числа кладутся в локальные переменные x и y. Переменные x и y суммируются, и результатом работы функции будет сумма переменных a и b.

Результат работы функции будет помещён в переменную summa (В строке summa := F(a, b)).

Таким образом, в переменной summa будет сумма двух переменных a и b.

Значение, которое вернёт функция, указано в строчке F := x + y;

Функции позволяют сократить программный код для однотипных расчётов.

Отличие функций от процедур в языке программирования Паскаль заключается в том, что функция возвращает значение, которое можно присвоить переменной, а процедура — нет.

Функции так же могут попасться и в 11 задании из ЕГЭ по информатике, поэтому понимание функций очень важно на экзамене по информатике.

Тренировочные задачи 21 задания из ЕГЭ по информатике

Задача (стандартная)

Определите, при каком наименьшем значении b в результате выполнения следующего алгоритма будет напечатано число 100 (Для Вашего удобства алгоритм представлен на пяти языках):

Бейсик	Паскаль
DIM A, B AS INTEGER INPUT B A = 0 WHILE F(A) < B A = A + 1 WEND PRINT A FUNCTION F(x) DIM I, S, AS INTEGER S = 0 I = 1 WHILE I <= x S = S + 5 I = I + 1 WEND F = S END FUNCTION	var a, b :integer; function F(x :integer): integer; var i, s : integer; begin s := 0; i := 1; while i <= x do begin s := s + 5; i := i + 1; end; F := s end; BEGIN readln(b); a := 0; while F(a) < b do a := a + 1; write(a); END.
C++	Алгоритмический язык
#include using namespace std; long F(long x) { long i, s; s = 0; i = 1; while(i <= x) { s = s + 5; i = i + 1; } return s; } int main() { int a, b; cin >> b; a = 0; while (F(a) < b) a = a + 1; cout << a << endl; return 0; }	алг нач цел a, b ввод b a := 0 нц пока F(a) < b a := a + 1 кц вывод a кон алг цел F(цел x) нач цел i, s s := 0 i := 1 нц пока i <= x s := s + 5 i := i + 1 кц знач := s кон
Python
def F(x) s = 0 i = 1 while i <= x: s = s + 5 i = i + 1 return s b = int(input()) a = 0 while F(a) < b: a = a + 1 print(a)

Решение:

Чтобы программа напечатала число 100, в переменной a по окончанию программы должно быть число 100.

Переменная a увеличивается в цикле while, т.е. пока значение функции F(a) меньше того числа, которое пользователь ввёл с клавиатуры (переменной b), Цикл будет прибавлять к переменной a единицу.

В последний раз, когда Цикл while в основной части программы пройдёт проверку (F(a) < b), значение переменной a = 99. Ведь к переменной a прибавится 1 внутри цикла, и как раз, программа напечатает 100.

Найдём, чему будет равно значение функции при последнем проходе Цикла (при a = 99).

Переменная x внутри функции олицетворяет переменную a, которая передаётся в виде аргумента в функцию F.

Тогда и x = 99, следовательно, цикл while (внутри функции) будет повторятся 99 раз. После окончания цикла (внутри функции) в переменной s будет значение s = 0 + 99 * 5 = 495. Это число вернёт функция в виде значения, и это значение будет участвовать в условии цикла while в главной части программы.

Нужно найти наименьшее значение b, чтобы условие 495 < b выполнялось (это будет последний проход ЦИКЛА).

Понимаем, что b = 496.

Ответ: 496.

Потренируемся решать ещё примерные задачи 21 задания из ЕГЭ по информатике.

Задача (закрепление материала)

Определите при каком наименьшем значении b в результате выполнения следующего алгоритма будет напечатано число 20 (для Вашего удобства алгоритм представлен на пяти языках):

Бейсик	Паскаль
DIM A, B AS INTEGER INPUT B A = 0 WHILE F(A) < B A = A + 1 WEND PRINT A FUNCTION F(x) IF x = 0 F = 0 ELSE F = 7 + F(x-1) END IF END FUNCTION	var a, b : integer; function F(x:integer):integer; begin if x = 0 then F := 0 else F := 7 + F(x-1) end; BEGIN readln(b); a := 0; while F(a) < b do a := a + 1; write(a); END.
C++	Алгоритмический язык
#include using namespace std; long F(long x) { if(x == 0) return 0; else return 7 + F(x - 1); } int main() { int a, b; cin >> b; a = 0; while (F(a) < b) a = a + 1; cout << a << endl; return 0; }	алг нач цел a, b ввод b a := 0 нц пока F(a) < b a := a + 1 кц вывод a кон алг цел F(цел x) нач если x > 0 то знач := 0 иначе знач := 7 + F(x-1) все кон
Python
def F(x): if x == 0: return 0 else: return 7 + F(x-1) b = int(input()) a = 0 while F(a) < b: a = a + 1 print(a)

Решение:

Чтобы программа напечатала число 20, нужно, чтобы при последнем проходе цикла while в главной части программы условие F(a) < b было верно при a = 19.

Число 19 передаём в функцию, посмотрим какое значение вернёт функция.

Локальная переменная x после того, как будет запущена функция F, будет равна 19. Условие отработает по ветке else, т.к. 19 неравно 0. Значит функция F запускает ещё раз функцию F но с другим параметром 18 (19 — 1). И т.д., пока параметр передаваемый в функцию не будет равен нулю.

Получается такая картина:

F(19) = F(18) + 7
F(18) = F(17) + 7
F(17) = F(16) + 7
…
F(1) = F(0) + 7
F(0) = 0

При запуске F(19) функция возвращает сумму девятнадцати семёрок. F(19) = 19 * 7 = 133.

Т.е. последний раз, когда выполняется цикл в главной части программы должно выполнится условие 133 < b. Понимаем, что наименьшее значение b должно быть 134.

Ответ: 134

Важный пример для изучения 21 задания из ЕГЭ по информатике.

Задача (Минимум функции)

Определите, какое число будет напечатано в результате выполнения следующего алгоритма (для Вашего удобства алгоритм представлен на пяти языках):

Бейсик	Паскаль
DIM A, B, T, M, R AS INTEGER A = -20: B = 20 M = A : R = F(A) FOR T = A TO B IF F(T) <= R THEN M = T R = F(T) END IF NEXT T PRINT M + 6 FUNCTION F(X) F = (x * x - 16) * (x * x - 16) + 3 END FUNCTION	var a, b, t, M, R :integer; function F(x:integer):integer; begin F := (x * x - 16) * (x * x - 16) + 3 end; BEGIN a: = -20; b := 20; M := a; R := F(a); for t := a to b do if F(t) <= R then begin M := t; R := F(t); end; write(M + 6); END.
C++	Алгоритмический язык
#include using namespace std; long F(long x) { return (x * x - 16) * (x * x - 16) + 3; } int main() { long a, b, t, M, R; a = -20; b = 20; M = a; R = F(a); for(t = a; t <= b; t++) { if(F(t) <= R) { M = t; R = F(t); } } cout << M + 6 << endl; return 0; }	алг нач цел a, b, t, M, R a := -20; b := 20 M := a; R := F(a) нц для t от a до b если F(t) <= R то M := t R := F(t) все кц вывод M + 6 кон алг цел F(цел x) нач знач := (xx - 16) (x*x - 16) + 3 кон
Python
def F(x): return (x * x - 16) * (x * x - 16) + 3 a = -20; b = 20 M = a; R = F(a) for t in range(a, b+1): if (F(t) <= R): M = t; R = F(t) print(M + 6)

Решение:

В главной части программы находится цикл FOR. В нём переменная t проходит целые числа от -20 до 20. И эта переменная t является аргументов в функции F.

В теле цикла идёт условие. Это условие ищет наименьшее значение для функции F. Если мы нашли меньшее значение для функции F, чем то значение, которое сейчас считается наименьшим и находится в переменной R, то это значение будет считаться наименьшим.

Таким образом, после прохождения всего цикла, в переменной R будет минимум всей функции F! А в переменной M значение переменной t, при котором этот минимум настаёт.

Чтобы ответить на вопрос задачи, необходимо найти минимум функции F = (x² — 16) * (x² — 16) + 3.

Обозначим z = x² — 16. Тогда функция примет вид F = z² + 3. Минимум этой функции достигается при z = 0. Значит, x² — 16 = 0 => (x — 4)(x + 4) = 0. Т.е. минимум функции достигается при двух значениях x = 4, x = -4.

Примечание: Минимум можно искать любым способом, вплоть до нахождения производной!

Т.к. переменная t идёт в цикле FOR от минуса к плюсу, а неравенство внутри цикла нестрогое, то в переменной M будет второе значение (4!) после прохождения всего цикла!

Тогда ответ получается равен 10!

Ответ: 10

Задачи 21 задания из реального ЕГЭ по информатике

Рассмотрим задачи, которые были на реальном экзамене по информатике в 2019 и 2020 годах.

Задача (ЕГЭ по информатике, Москва, 2019)

Напишите в ответе число, которое будет напечатано в результате выполнения следующего алгоритма. Для Вашего удобства программа приведена на четырёх языках программирования.

Бейсик	Python
DIM A, B, T, M, R AS LONG A = -20 : B = 20 M = A : R = F(A) FOR T = A TO B IF F(T) < R THEN M = T R = F(T) END IF NEXT T PRINT M + R FUNCTION F(x) F = 2 * (x * x - 1) * (x * x - 1) + 5 END FUNCTION	def F(x): return 2 * (x * x - 1) * (x * x - 1) + 5 a = -20 b = 20 M = a R = F(a) for t in range(a, b + 1): if F(t) < R: M = t R = F(t) print(M + 18)
Паскаль	C++
var a, b, t, M, R :integer; function F(x:integer):integer; begin F := 2 * (x * x - 1) * (x * x - 1) + 5 end; begin a := -20; b := 20; M := a ; R := F(a); for t := a to b do if (F(t) < R) then begin M := t; R := F(t) end; write(M + 18) end.	#include using namespace std; int F(int x) { return 2 * (x * x - 1) * (x * x - 1) + 5; } int main() { int a, b, M, R; a = -20; b = 20; M = a; R = F(a); for(int t = a; t <= b; t++) if(F(t) < R) { M = t; R = F(t); } cout << M + 18; return 0; }

Бейсик

Python

DIM A, B, T, M, R AS LONG
A = -20 : B = 20
M = A : R = F(A)
FOR T = A TO B
    IF F(T) < R THEN
        M = T
        R = F(T)
    END IF
NEXT T
PRINT M + R

FUNCTION F(x)
    F = 2 * (x * x - 1) * (x * x - 1) + 5
END FUNCTION

def F(x):
    return 2 * (x * x - 1) * (x * x - 1) + 5
a = -20
b = 20
M = a
R = F(a)
for t in range(a, b + 1):
    if F(t) < R:
        M = t
        R = F(t)
print(M + 18)

Паскаль

C++

var a, b, t, M, R :integer;
function F(x:integer):integer;
begin
    F := 2 * (x * x - 1) * (x * x - 1) + 5
end;

begin
    a := -20; b := 20;
    M := a ; R := F(a);
    for t := a to b do
        if (F(t) < R) then begin
            M := t; R := F(t)
        end;
    write(M + 18)
end.

#include 
using namespace std;
int F(int x) {
    return 2 * (x * x - 1) * (x * x - 1) + 5;
}
int main() {
    int a, b, M, R;
    a = -20;
    b = 20;
    M = a; R = F(a);
    for(int t = a; t <= b; t++)
        if(F(t) < R) {
            M = t;
            R = F(t);
        }
    cout << M + 18;
    return 0;
}

Решение:

Задача похоже на предыдущую. Снова по окончании цикла FOR в переменной R будет минимум функции F, а в переменной M значение, при котором функция F достигает минимума.

Найдём минимум для функции F = 2 * (x² — 1) * (x² — 1) + 5. Обозначим z = x² — 1. Тогда функция F = 2 * z² + 5 минимум принимаем в значении z = 0. Следовательно, минимум будет достигаться x² — 1 = 0. Т.е. при x = -1 и при x = 1 достигается минимум функции.

Переменная t в цикле FOR перебирает значение от минусовых значений к плюсовым значениям. Неравенство внутри тела цикла строгое! Значит, в переменной M будет минусовое значение.

В ответе напишем -1 + 18 = 17.

Ответ: 17

Задача (ЕГЭ по информатике, Москва, 2020)

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

Бейсик	Python
DIM A, B, T, M, R AS LONG A = -20: B = 20 M = A: R = F(A) FOR T = A TO B IF F(T) < R THEN M = T R = F(T) END IF NEXT t PRINT M + R FUNCTION F(x) F = 2 * (x * x - 9) * (x * x - 9) + 5 END FUNCTION	def F(x): return 2 * (x * x - 9) * (x * x - 9) + 5 a = -20 b = 20 M = a R = F(a) for t in range(a, b+1): if F(t) < R : M = t R = F(t) print(M + 18)
Паскаль	C++
var a, b, t, M, R : integer; function F(x:integer) : integer; begin F := 2 * (x * x - 9) * (x * x - 9) + 5 end; begin a := -20; b := 20; M := a ; R := F(a); for t := a to b do if (F(t) < R) then begin M := t; R := F(t) end; write(M + 18); end.	#include using namespace std; int F(int x) { return 2 * (x * x - 9) * (x * x - 9) + 5; } int main() { int a, b, M, R; a = -20; b = 20; M = a; R = F(a); for(int t = a; t <= b; t++) if(F(t) < R) { M = t; R = F(t); } cout << M + 18; return 0; }

Бейсик

Python

DIM A, B, T, M, R AS LONG
A = -20: B = 20
M = A: R = F(A)
FOR T = A TO B
    IF F(T) < R THEN
        M = T
        R = F(T)
    END IF
NEXT t
PRINT M + R

FUNCTION F(x)
    F = 2 * (x * x - 9) * (x * x - 9) + 5
END FUNCTION

def F(x):
    return 2 * (x * x - 9) * (x * x - 9) + 5
a = -20
b = 20
M = a
R = F(a)
for t in range(a, b+1):
    if F(t) < R :
        M = t
        R = F(t)
print(M + 18)

Паскаль

C++

var a, b, t, M, R : integer;
function F(x:integer) : integer;
begin
    F := 2 * (x * x - 9) * (x * x - 9) + 5
end;
begin
    a := -20; b := 20;
    M := a ; R := F(a);
    for t := a to b do
        if (F(t) < R) then begin
            M := t; R := F(t)
        end;
    write(M + 18);
end.

#include 
using namespace std;
int F(int x) {
    return 2 * (x * x - 9) * (x * x - 9) + 5;
}
int main() {
    int a, b, M, R;
    a = -20;
    b = 20;
    M = a; R = F(a);
    for(int t = a; t <= b; t++)
        if(F(t) < R) {
            M = t;
            R = F(t);
        }
    cout << M + 18;
    return 0;
}

Решение:

Опять такая же ситуация, как в предыдущих двух задачах.

Найдём при каких значениях x достигается минимум функции F = 2 * (x² — 9) * (x² — 9) + 5.

Минимум функции F достигается при x = 3 и x = -3.

Переменная t перебирает целые числа от минусовых значений до плюсовых. Неравенство внутри цикла строгое, значит, после окончания цикла переменная M = -3.

Ответ будет -3 + 18 = 15.

Ответ: 15

На этом завершился урок по подготовке 21 задания из ЕГЭ по информатике. Удачи!

Источник

На уроке рассматривается решение 16 задания ЕГЭ по информатике про рекурсивные алгоритмы

Рекомендации по выполнению:

«Для успешного выполнения этого задания следует аккуратно произвести трассировку
предложенной рекурсивной функции»

Типичные ошибки и рекомендации по их предотвращению:

«Крайне важно отслеживать правильность возврата выполнения программы в нужную точку для
каждого рекурсивного вызова»

ФГБНУ «Федеральный институт педагогических измерений»

Для начала, разберем некоторые определения.

Процедура (функция)– это вспомогательный алгоритм (фрагмент кода программы), который служит для выполнения определенных действий.

Предназначена для:

выполнения одинаковых действий в различных местах одной и той же программы;

разбивки программы (или другой процедуры или функции) на подзадачи для улучшения читаемости кода;

Особенности программирования процедур (функций):

подпрограммы располагаются всегда выше основной программы:

сначала составляется заголовок процедуры или функции, в котором перечисляются формальные параметры, они обозначаются идентификаторами, как переменные (т.к. формальные параметры могут меняться, также как переменные):

var x,y:integer;
{ заголовок процедуры 
с формальными переменными x и y:}
procedure Sum(x,y:integer); 
begin
 ...
end;
// основная программа
begin
  ...
end.

var x,y:integer;
{ заголовок функции 
с формальными переменными x и y:}
function Sum(x,y:integer): integer; 
begin
  ...
end;
// основная программа
begin
 ...
end.

в месте вызова процедуры в круглых скобках указываются фактические параметры (числовые значения либо арифметические выражения) в том же порядке:

функция вызывается немного иначе:

{ заголовок процедуры 
с формальными переменными x и y:}
procedure Sum(x,y:integer); 
begin
 ...
end;
// основная программа
begin
  Sum(100,200)
end.

{ заголовок функции 
с формальными переменными x и y:}
function Sum(x,y:integer): integer; 
begin
  ...
end;
// основная программа
begin
 write (Sum(100,200))
end.

компилятор не будет выполнять процедуру (функцию) до момента ее вызова в основной программе;

пример работы процедуры и функции для сложения двух значений (порядок действий компилятора указан числами):

var x,y:integer;
procedure Sum(x,y:integer); 
begin
//3. Выводим сумму двух запрошенных чисел
  write(x+y); 
end;
begin
// 1. запрашиваем два числа
 readln(x,y);
// 2. передаем запрошенные числа в процедуру 
 Sum(x,y)  
end.

var x,y:integer;
function Sum(x,y:integer): integer; 
begin
{3. Суммируем два числа и присваиваем 
значение функции:}
  Sum:=x+y;
end;
begin
// 1. запрашиваем два числа
 readln(x,y);
{2. передаем запрошенные числа 
в функцию и выводим результат:} 
 write (Sum(x,y))
end.

Подробное описание работы с процедурами можно найти, перейдя по ссылке.

Рекурсивной называется процедура, вызывающая сама себя:

procedure row(n:integer);
begin
     if n >=1 then begin
        write (n, ' ');
        row(n-1)
     end;
end;
begin
    row(10);
end.

Для использования рекурсии, необходимо задать:

условие остановки рекурсии (обычно, в виде условного оператора):
рекуррентную формулу (обычно, вызов самой себя с измененным параметром):

Подробное описание работы с рекурсивными процедурами и функциями в Паскале можно найти здесь.

Плейлист видеоразборов задания на YouTube:
Задание демонстрационного варианта 2022 года ФИПИ

Решение по рекуррентной формуле

16_13:

Алгоритм вычисления значений функций F(n) и G(n), где n – натуральное число, задан следующими соотношениями:

F(1) = 1; G(1) = 1;
F(n) = F(n–1) + 3·G(n–1), при n >=2 
G(n) = F(n–1) - 2·G(n–1), при n >=2

Чему равна сумма цифр значения F(18)?

✍ Решение:

✎ Решение с использованием программирования:

PascalABC.NET:

function F(n: integer): integer; forward;
function G(n: integer): integer; forward;
 
function F(n: integer): integer;
begin
  if n = 1 then
    F := 1  // или result := 1
  else if n >= 2 then
    F := F(n - 1) + 3 * G(n - 1) 
    // или result := F(n - 1) + 3 * G(n - 1)
end;
 
function G(n: integer): integer;
begin
  if n = 1 then
    G := 1  // или result := 1
  else if n >= 2 then
    G := F(n - 1) - 2 * G(n - 1)
    // или result := F(n - 1) - 2 * G(n - 1)
end;
 
begin
  var res := F(18);
  var s := 0;
  while res > 0 do
  begin
    s := s + (res mod 10);
    res := res div 10;
  end;
  print(s)
end.

Питон:

def F( n ):
    if n == 1: 
        return 1
    elif (n >= 2):
        return F(n-1)+3*G(n-1)
def G( n ):
    if n == 1: 
        return 1
    elif (n >= 2):
        return F(n-1)-2*G(n-1)
 
res = F(18)
s = 0
while res > 0:
    s += res%10
    res = res // 10
print(s)

C++:

Результат: 46

16_1:

Алгоритм вычисления значения функции F(n), где n – натуральное число, задан следующими соотношениями:

F(1) = 1
F(n) = F(n–1) * (n + 2), при n > 1

✍ Решение:

✎ Решение с использованием программирования:

PascalABC.NET (решение №1):

function F(n: integer): integer;
begin
  if n = 1 then
    F := 1
  else if n > 1 then
    F := F(n - 1) * (n + 2)
end;
 
begin
  print(F(5))
end.

PascalABC.NET (решение №2):

function F(n:integer):integer:=
 n=1 ? 1
 :  F(n-1) * (n+2);
 
begin
  print(F(5))
end.

Питон:

def F( n ):
    if n == 1: 
        return 1
    elif (n > 1):
        return F(n-1)*(n+2)
print (F(5))

C++:

✎ Решение теоретическое (методом с конца к началу):

Из условия задания мы имеем рекуррентную формулу: F(n–1) * (n + 2) и условие остановки рекурсии: n > 1.
Поскольку рекуррентная формула уже задана, то остается подставить в нее начальный параметр — число 5:

F(5) = F(4) * 7

Теперь применим эту формулу для всех вызываемых вложенных функций, вплоть до F(1) (при котором «сработает» остановка рекурсии). Получим:

F(5) = F(4) * 7
       F(4) = F(3) * 6
              F(3) = F(2) * 5
                     F(2) = F(1) * 4
                              1

На F(2) необходимо остановиться, так как действует условие остановки рекурсии: формула работает для n > 1. Также учтем, что по условию F(1) = 1.
Теперь с конца к началу перепишем все получившиеся сомножители и перемножим их:

1 * 4 * 5 * 6 * 7 = 840

Результат: 840

16_2:

Алгоритм вычисления значения функции F(n), где n – натуральное число, задан следующими соотношениями:

F(0) = 1, F(1) = 1
F(n) = 2 * F(n–1) + F(n-2), при n > 1

Чему равно значение функции F(6)? В ответе запишите только целое число.

✍ Решение:

✎ Решение с использованием программирования:

PascalABC.NET (решение №2):

function F(n:integer):integer;
begin
  if (n = 0) or (n = 1) then result:=1
  else if n>1 then result:=2*F(n-1) + F(n-2);
end;
begin
  print(F(6))
end.

✎ Решение 1. Теоретическое (метод решения с начала к концу):

Из условия задания мы имеем рекуррентную формулу: 2 * F(n–1) + F(n-2) и условие остановки рекурсии: n > 1.
Из заданной рекуррентной формулы видим, что функция зависит от предыдущей функции (F(n–1)) и от пред-предыдущей функции (F(n-2)).
Так как первые два значения заданы (F(0) = 1, F(1) = 1), то можно построить таблицу последующих значений, двигаясь к числу 6:

n	0	1	2	3	4	5	6
F(n) ^{2*F(n – 1)+F(n — 2)}	1	1	2*1+1 =3	2*3+1 =7	2*7+3 =17	2*17+7 =41	2*41+17 =99

Таким образом, получаем, что при вызове функции F(6) результатом будет число 99

✎ Решение 2. Теоретическое (метод решения с конца к началу):

Поскольку рекуррентная формула уже задана, то остается подставить в нее начальный параметр — число 6:

F(6) = 2*F(5) + F(4)

Теперь применим эту формулу для всех вызываемых вложенных функций, вплоть до F(2) (F(1) и F(0) известны из условия задачи). Получим:

F(6) = 2*F(5) + F(4)
       F(5) = 2*F(4) + F(3)
              F(4) = 2*F(3) + F(2)
                     F(3) = 2*F(2) + F(1)
                              F(2) = 2*F(1) + F(0) = 2*1+1 = 3
                                        1       1

Теперь с конца к началу перепишем все получившиеся значения функций:

F(6) = 2*F(5) + F(4) = 2*41 + 17 = 99
       F(5) = 2*F(4) + F(3) + 2*17+7 = 41 ↑
              F(4) = 2*F(3) + F(2) = 2*7+3 = 17 ↑
                     F(3) = 2*F(2) + F(1) = 2*3+1 = 7 ↑
                              F(2) = 2*F(1) + F(0) = 2*1+1 = 3 ↑  
                                        1       1

Результат: 99

Решение данного задания 16 также можно посмотреть в видеоуроке (теоретическое):

📹 YouTube здесь

16_10:

Алгоритм вычисления значений функций F(n) и G(n), где n – натуральное число, задан следующими соотношениями:

F(1) = 1; G(1) = 1;
F(n) = F(n–1) – G(n–1), 
G(n) = F(n–1) + 2*G(n–1), при n >= 2

Чему равно значение величины F(5)/G(5)?
В ответе запишите только целое число.

Типовые задания для тренировки

✍ Решение:

✎ Решение с использованием программирования:

PascalABC.NET:

function F(n: integer): integer; forward;
function G(n: integer): integer; forward;
 
function F(n:integer):integer;
begin
  if n = 1 then result:=1
  else if n>=2 then result:=F(n-1) - G(n-1);
end;
 
function G(n:integer):integer;
begin
  if n = 1 then result:=1
  else if n>=2 then result:=F(n-1) + 2*G(n-1);
end;
begin
  print(F(5)/G(5))
end.

✎ Решение теоретическое:

Решим задание с вызова функций F(5) и G(5). Будем получать формулы последовательно для F(5), F(4), …, F(1), G(5), G(4), …, G(1). Дойдя до известных значений F(1) = 1 и G(1) = 1, подставим их в полученные формулы:

F(5) = F(4) – G(4)
G(5) = F(4) + 2*G(4)
	F(4) = F(3) – G(3)  
	G(4) = F(3) + 2*G(3) 
		F(3) = F(2) – G(2) 
		G(3) = F(2) + 2*G(2) 
			F(2) = F(1) – G(1) 
			G(2) = F(1) + 2*G(1) 
                               F(1) = 1; G(1) = 1;

F(2) = F(1) – G(1) = 1 - 1 = 0
G(2) = F(1) + 2*G(1) = 1 + 2 = 3
F(3) = F(2) – G(2) = 0 - 3 = -3
G(3) = F(2) + 2*G(2) = 0 + 6 = 6
F(4) = F(3) – G(3) = -3 - 6 = -9 
G(4) = F(3) + 2*G(3) = -3 + 12 = 9
F(5) = F(4) – G(4) = -9 - 9 = -18
G(5) = F(4) + 2*G(4) = -9 + 18 = 9

Итого:

F(5)/G(5) = -18/9 = -2

Ответ: -2

Что вернет функция. Сколько символов «звездочка». Какова сумма чисел

16_9:

Что вернет функция F, если ее вызвать с аргументом 6?

Паскаль:

function f(a:word):longword;
begin
  if a>0 then
    f := f(a-1)*a;
  else
    f:=1;
end;

Бейсик:

FUNCTION F(a)
  IF a > 0 THEN
     F = F(a - 1) * a
  ELSE
     F = 1;
  END IF
END FUNCTION

Python:

def F(a):
    if a > 0:
        return F(a - 1) * a
    else:
        return 1

С++:

int F(int a);
int F(int a) {
  if (a > 0)
    return F(a - 1) * a;
  else
    return 1;
}

✍ Решение:

✎ Решение с использованием программирования:

PascalABC.NET:

function f(a:word):longword;
begin
  if a>0 then
    f := f(a-1)*a
  else
    f:=1;
end;
begin
  print(f(6))
end.

✎ Решение теоретическое:
Рассмотрим алгоритм функции:

Если аргумент функции, т.е. a, равен единице, то функция возвращает в программу значение 1, иначе вызывается функция с аргументом a — 1 и результат этой функции умножается на a.
Это рекурсивный алгоритм вычисления факториала числа. Чтобы удостовериться в этом, выполним трассировку функции с аргументом = 6:

F(6):
6 > 0, то F(5)*6
F(5):
5 > 0, то F(4)*5
F(4):
4 > 0, то F(3)*4
F(3):
3 > 0, то F(2)*3
F(2):
2 > 0, то F(1)*2
F(1): 
1 > 0, то F(0)*1
F(0):
0 > 0 - нет, то F(0) = 1

Теперь подставляем значения, двигаясь вверх по прописанному алгоритму:
F(1)= F(0)*1 = 1*1 = 1
F(2)= F(1)*2 = 1*2 = 2
F(3)= F(2)*3 = 2*3 = 6
F(4)= F(3)*4 = 6*4 = 24
F(5)= F(4)*5 = 24*5 = 120
F(6)= F(5)*6 = 120*6 = 720

Т.е. 6! = 720

Ответ: 720

16_3:

Ниже записаны две рекурсивные функции (процедуры): F и G.
Сколько символов «звездочка» будет напечатано на экране при выполнении вызова F(18)?

Паскаль:

procedure F(n: integer); forward;
procedure G(n: integer); forward;
 
procedure F(n: integer);
begin
  write('*');
  if n > 10 then F(n - 2) else G(n);
end;
 
procedure G(n: integer);
begin
  write('**');
  if n > 0 then F(n - 3);
end;

Бейсик:

DECLARE SUB F(n)
DECLARE SUB G(n)
SUB F(n)
  PRINT "*"
  IF n > 10 THEN
     F(n - 2)
  ELSE
     G(n)
  END IF
END SUB
SUB G(n)
  PRINT "**"
  IF n > 0 THEN
     F(n - 3)
  END IF
END SUB

Python:

def F(n):
  print("*")
  if n > 10:
    F(n - 2)
  else:
    G(n)
def G(n):
  print("**")
  if n > 0:
    F(n - 3)

С++:

void F(int n) {
  std::cout << "*";
  if (n > 10) {
    F(n - 2);
  }
  else {
    G(n);
  }
}
void G(int n) {
  std::cout << "**";
  if (n > 0)
    F(n - 3);
}

Типовые задания для тренировки

✍ Решение:

✎ Решение с использованием программирования:

PascalABC.NET:

procedure F(n: integer); forward;
procedure G(n: integer); forward;
var k:=0; // объявление глобальной переменной-счетчика 
procedure F(n: integer);
begin
  write('*');
  k+=1; // увеличение счетчика
  if n > 10 then F(n - 2) else G(n);
end;
 
procedure G(n: integer);
begin
  write('**');
  k+=2;// увеличение счетчика
  if n > 0 then F(n - 3);
end;
begin
 f(18);
 print(k) // вывод счетчика
end.

✎ Решение теоретическое:

Для удобства восприятия задания, выпишем рекуррентные формулы и условия остановки рекурсии для двух процедур:

Для F:
*
F(n - 2) при n > 10
G(n) при n <= 10

Для G:
**
F(n - 3) при n > 0

✎ Способ 1:

Выпишем последовательность вызовов процедур, начиная с указанного в задании F(18):

F(18) -> F(16) -> F(14) -> F(12) -> F(10) -> G(10) -> 
F(7) -> G(7) -> F(4) -> G(4) -> F(1) -> G(1) -> F(-2) -> G(-2)

Обратим внимание, что независимо от условия процедура F выводит на экран одну *, а процедура G выводит две *. Посчитаем для последовательности вызовов итоговую сумму звездочек: 9F + 5G = 9*1 + 5*2 = 19

Результат: 19

✎ Способ 2:

Рассмотрим пошагово выполнение программы при вызове F(18):

1 шаг: F(18)
       *    F(16)
2 шаг:      *    F(14)
3 шаг:           *    F(12)
4 шаг:                *    F(10)
5 шаг:                     *    G(10)
6 шаг:                          **   F(7)
7 шаг:                                *  G(7)
8 шаг:                                   **  F(4)
9 шаг:                                       *    G(4)
10 шаг:                                           **   F(1)
11 шаг:                                                *   G(1)
12 шаг:                                                    **   F(-2)
13 шаг:                                                         *   G(-2)
14 шаг:                                                             **

Посчитаем количество звездочек: 19

Результат: 19

Пошаговое аналитическое решение данного 16 задания ЕГЭ по информатике доступно в видеоуроке:

📹 YouTube здесь

Видеорешение на RuTube здесь

16_12:

Сколько символов «звездочка» будет напечатано на экране при выполнении вызова F(5)?

Паскаль:

procedure F(n: integer);
begin
 writeln('*');
 if n > 0 then begin
   F(n-2);
   F(n div 2);
   F(n div 2);
 end
end;

Бейсик:

DECLARE SUB F(n)
SUB F(n)
  PRINT '*'
  IF n > 0 THEN
     F(n - 2)
     F(n  2)
     F(n  2)
  END IF
END SUB

Python:

def F(n):
  print('*')
  if n > 0:    
    F(n-2)
    F(n // 2)
    F(n // 2)

С++:

void F(int n) {
  std::cout << ″*″;
  if (n > 0) {
    F(n - 2);
    F(n / 2);
    F(n / 2);
  }
}

✍ Решение:

В начале каждого вызова независимо от условия на экран выводится «звездочка». Кроме того, если условие n > 0 истинно, то функция вызывается еще три раза с разными аргументами. Таким образом, каждая функция выводит на экран либо одну звездочку (если условие ложно), либо 4 звездочки если условие истинно.
Схематично рассмотрим вызов каждой функции, начиная с функции F(5). Дойдя до F(0), для которой условие будет ложно, будем подставлять полученное количество «звездочек», двигаясь опять к F(5):

F(5) = одна '*', F(3), F(2), F(2)
F(3) = одна '*', F(1), F(1), F(1)
F(2) = одна '*', F(0), F(1), F(1)
F(1) = одна '*', F(-1), F(0), F(0)
F(0) = одна '*' = 1  (условие ложно)
F(-1) = одна '*' = 1 (условие ложно)
---
Движение обратно:
F(1) = одна '*', F(-1), F(0), F(0) = 1 + 1 + 1 + 1 = 4 '*'
F(2) = одна '*', F(0), F(1), F(1) = 1 + 1 + 4 + 4 = 10 '*'
F(3) = одна '*', F(1), F(1), F(1) = 1 + 4 + 4 + 4 = 13 '*'
F(5) = одна '*', F(3), F(2), F(2) = 1 + 13 + 10 + 10 = 34 '*'

Ответ: 34

16_4:

Ниже записаны две рекурсивные функции (процедуры): F и G.
Какова сумма чисел, напечатанных на экране при выполнении вызова F(17)?

Паскаль:

procedure F(n: integer); forward;
procedure G(n: integer); forward;
 
procedure F(n: integer);
begin
  writeln(n);
  if n mod 2  =0 then F(n div 2) 
  else G((n - 1) div 2);
end;
 
procedure G(n: integer);
begin
  writeln (n); 
  if n > 0 then F(n);
end;

Бейсик:

DECLARE SUB F(n)
DECLARE SUB G(n)
SUB F(n)
  PRINT n
  IF n MOD 2 = 0 THEN
     F(n  2)
  ELSE
     G ( (n - 1)  2)
  END IF
END SUB
SUB G(n)
  PRINT n
  IF n > 0 THEN
     F(n)
  END IF
END SUB

Python:

def F(n):
  print(n)
  if n % 2 == 0:
    F(n // 2)
  else:
    G((n - 1) // 2)
def G(n):
  print(n)
  if n > 0:
    F(n)

С++:

void F(int n) {
  std::cout << n << endl;
  if (n % 2 == 0) {
    F(n / 2);
  }
  else {
    G((n - 1) / 2) ;
  }
}
void G(int n) {
  std::cout << n << endl;
  if (n > 0)
    F(n);
}

Типовые задания для тренировки

✍ Решение:

✎ Решение с использованием программирования:

PascalABC.NET:

procedure F(n: integer); forward;
procedure G(n: integer); forward;
var sum:=0; // сумматор
procedure F(n: integer);
begin
  writeln(n);
  sum+=n; // добавляем число в сумматор
  if n mod 2  =0 then F(n div 2) 
  else G((n - 1) div 2);
end;
 
procedure G(n: integer);
begin
  writeln (n); 
  sum+=n; // добавляем число в сумматор
  if n > 0 then F(n);
end;
begin
  F(17);
  print('sum =',sum)
end.

✎ Решение теоретическое:

Для удобства восприятия задания, выпишем рекуррентные формулы и условия остановки рекурсии для двух процедур:

Для F:
n
F(n div 2) при n - четное (n mod 2 = 0)
G((n - 1) div 2) при n - нечетное

Для G:
n
F(n) при n > 0

Выпишем последовательность вызовов процедур, начиная с указанного в задании F(17).
Обратим внимание, что независимо от условия как процедура F выводит на экран n, так и процедура G выводит n.

F(17) -> n - нечетное, G(8) вывод 17
G(8) -> F(8)                вывод 8
F(8) -> n - четное, F(4)    вывод 8
F(4) -> n - четное, F(2)    вывод 4 
F(2) -> n - четное, F(1)    вывод 2
F(1) -> n - нечетное, G(0)  вывод 1
G(0)                        вывод 0

Сумма:

17 + 8 + 8 + 4 + 2 + 1 + 0 = 40

Результат: 40

16_5:

Ниже записаны две рекурсивные функции (процедуры): F и G.
Чему будет равно значение, вычисленное при выполнении вызова F(6)?

Паскаль:

function F(n: integer):integer; forward;
function G(n: integer):integer; forward;
function F(n:integer):integer;
begin
 if (n > 2) then
   F:= F(n - 1) + G(n - 2)
 else F:= n;
end;
function G(n:integer):integer;
begin
 if (n > 2)then
   G:= G(n - 1) + F(n -2)
 else G:= n+1;
end;

Бейсик:

FUNCTION F(n)
  IF n > 2 THEN
     F = F(n - 1) + G(n - 2)
  ELSE
     F = n;
  END IF
END FUNCTION 
FUNCTION G(n)
  IF n > 2 THEN
     G = G(n - 1) + F(n -2)
  ELSE
     G = n+1;
  END IF
END FUNCTION

Python:

def F(n):
    if n > 2:
        return F(n - 1) + G(n - 2)
    else:
        return n
def G(n):
    if n > 2:
        return G(n - 1) + F(n - 2)
    else:
        return n+1

С++:

int F(int n);
int G(int n);
int F(int n) {
  if (n > 2)
    return F(n - 1) + G(n - 2);
  else
    return n;
}
int G(int n) {
  if (n > 2)
    return G(n - 1) + F(n - 2);
  else
    return n + 1;
}

Типовые задания для тренировки

✍ Решение:

Результат: 17

Предлагаем посмотреть видеоразбор данного аналитического решения:

📹 YouTube здесь

Видеорешение на RuTube здесь

С каким аргументом?

16_8:

Вызов представленной ниже рекурсивной функции приводит к появлению на экране чисел и точек. С каким минимальным натуральным аргументом а нужно вызвать эту функцию, чтобы в результате на экране появилось 5 точек (не обязательно подряд, между точками могут встречаться числа)?

Паскаль:

function gz(a:integer):integer;
var p:integer;
begin
  if a<1 then begin 
   gz:=1; exit; 
  end;
  if a mod 3=0 then begin
   write('...');
   p:=gz(a div 3)+gz(a div 4);
  end
  else begin
    write('.');
    p:=gz(a div 4);
  end;
  write(p);
  gz:=2; 
end;

✍ Решение:

✎ Решение с использованием программирования:

PascalABC.NET:

procedure F(n: integer); forward;
procedure G(n: integer); forward;
var sum:=0; // сумматор
procedure F(n: integer);
begin
  writeln(n);
  sum+=n; // добавляем число в сумматор
  if n mod 2  =0 then F(n div 2) 
  else G((n - 1) div 2);
end;
 
procedure G(n: integer);
begin
  writeln (n); 
  sum+=n; // добавляем число в сумматор
  if n > 0 then F(n);
end;
begin
  F(17);
  print('sum =',sum)
end.

Результат: 6

Смотрите подробное аналитическое решение:

📹 YouTube здесь

📹 Видеорешение на RuTube здесь (аналитическое)

Не актуально для компьютерного ЕГЭ

Все числа, которые будут напечатаны на экране, в том же порядке

16_6: Демоверсия ЕГЭ 2018 информатика:

Ниже на пяти языках программирования записан рекурсивный алгоритм F.
Паскаль:

procedure F(n: integer);
begin
if n > 0 then
begin
  write(n);
  F(n - 3);
  F(n div 3)
end
end;

Бейсик:

SUB F(n)
  IF n > 0 THEN
     PRINT n
     F(n - 3)
     F(n  3)
  END IF
END SUB

Python:

def F(n):
  if n > 0:
     print(n)
     F(n - 3)
     F(n // 3)

С++:

void F(int n){
  if (n > 0){
    std::cout <<n;
    F(n - 3);
    F(n / 3);
  }
}

Запишите подряд без пробелов и разделителей все числа, которые будут напечатаны на экране при выполнении вызова F(9). Числа должны быть записаны в том же порядке, в котором они выводятся на экран.

Похожие задания для тренировки

✍ Решение:

В данном фрагменте программы рекурсивная процедура вызывает саму себя дважды.
Благодаря условию, находящемуся в процедуре (if n > 0 — условие остановки рекурсии), обеспечивается выход из рекурсии и не происходит «зацикливания».
Выполнение процедур закончится, когда в каждой из вызванных процедур выполнятся по две внутренние процедуры, и условие if n > 0 перестанет работать (т.е. когда параметр процедуры n станет <= 0).
div — целочисленное деление, т.е., например:

5 div 2 = 2
1 div 2 = 0

Отобразим пошагово выполнение каждой процедуры, двигаясь сверху вниз и оставляя отступы слева с каждым новым шагом. В каждой строке будем отображать порядковый номер шага. Под вызовом каждой процедуры разместим именно те действия, которые происходят в данной процедуре:

   F(9)
1: 9  F(6)    (9 - 3 = 6)
2:     6   F(3)    (6 - 3 = 3)
3:          3    F(0)    (3 - 3 = 0, условие не работает)
4:         F(1)  (3 div 3 = 1)
5:          1    F(-2)    (1 - 3 = -2, условие не работает)
6:         F(0)    (1 div 3 = 0, условие не работает)
7:    F(2) (6 div 3 = 2)
8:     2   F(-1)    (2 - 3 = -1, условие не работает)
9:    F(0)    (2 div 3 = 0, условие не работает)
10:F(3)  (9 div 3 = 3)
11:3  F(0)     (3 - 3 = 0, условие не работает) 
12:F(1)  (3 div 3 = 1)   
13: 1   F(-2)     (1 - 3 = -2, условие не работает)

Выделены те числа, которые выводятся на экран. Подчеркнуты те процедуры, в которых условие не работает, соответственно, ничего на экран не выводится.
Перепишем по порядку все выводимые на экран числа сверху вниз: 9631231

Результат: 9631231

Подробное решение 16 (11) задания демоверсии ЕГЭ 2018 года смотрите на видео:
📹 Видео 1 способ
📹 Видеорешение на RuTube здесь

2 способ:
📹 YouTube здесь
📹 Видеорешение на RuTube здесь

16_7:

Ниже записан рекурсивный алгоритм F. Запишите подряд без пробелов и разделителей все числа, которые будут напечатаны на экране при выполнении вызова F(130).
Числа должны быть записаны в том же порядке, в котором они выводятся на экран.

Паскаль:

procedure F(n: integer);
begin
  if n > 1 then
  begin
    write(n);
    F(n div 10);
    F(n - 40)
   end
end;

Бейсик:

SUB F(n)
  IF n > 1 THEN
     PRINT n
     F(n  10)
     F(n - 40)
  END IF
END SUB

Python:

def F(n):
  if n > 1:
     print(n)
     F(n // 10)
     F(n - 40)

С++:

void F(int n){
  if (n > 1){
    std::cout <<n;
    F(n / 10);
    F(n - 40);
  }
}

✍ Решение:

В данном фрагменте программы рекурсивная процедура F вызывает саму себя дважды.
В процедуре находится условие if n > 1 — условие остановки рекурсии, благодаря которому обеспечивается выход из рекурсии и не происходит «зацикливания».
Выполнение фрагмента программы закончится, когда в каждой из вызванных процедур выполнятся по две внутренние процедуры, и условие if n > 1 перестанет работать (т.е. когда параметр процедуры n станет <= 1).
div — целочисленное деление, т.е., например:

5 div 3 = 1
1 div 3 = 0

Выполним трассировку кода процедуры: двигаться будем пошагово сверху вниз, оставляя отступы слева с каждым новым шагом. В каждой строке будем отображать порядковый номер шага. Под вызовом каждой процедуры разместим именно те действия, которые происходят в данной процедуре:

   F(130) 130  
1: ➥  F(13) (130 div 10 = 13) 13
2:           ➥ F(1) условие не работает! 1 ≤ 0
3:           ➥ F(-27) условие не работает! -27 ≤ 0
4: ➥  F(90) (130 - 40 = 90) 90        
5:           ➥ F(9) (90 div 10 = 9) 9
6:                    ➥ F(0) условие не работает! 0 ≤ 0
7:                    ➥ F(-31) условие не работает! -31 ≤ 0
8:           ➥  F(50) (90 - 40 = 50) 50
9:                     ➥  F(5) (50 div 10 = 5) 5
10:                              ➥ F(0) условие не работает! 0 ≤ 0
11:                              ➥ F(-35) условие не работает! -35 ≤ 0
12:                    ➥  F(10) (50 - 40 = 10) 10
13:                              ➥ F(1) условие не работает! 1 ≤ 0
14:                              ➥ F(-30) условие не работает! -30 ≤ 0

Выделены красным цветом те числа, которые выводятся на экран. Подчеркнуты те процедуры, в которых условие не работает, соответственно, ничего на экран не выводится.
Перепишем сверху вниз все выводимые на экран числа: 1301390950510

Результат: 1301390950510

Предлагаем посмотреть видео разбора задания:
📹 YouTube здесь

📹 Видеорешение на RuTube здесь

16_11:

Определите, что выведет на экран программа при вызове F(5).

Паскаль:

procedure F(n: integer); forward;
procedure G(n: integer); forward;
procedure F(n: integer);
begin
  if n > 2 then
   begin
    write(n);
    F(n - 1);
    G(n - 2);
   end
  else
    write(n+2);
end;
procedure G(n: integer);
begin
  write(n);
  if n > 2 then
   begin
    G(n - 1);
    F(n - 2);
   end;
end;

Бейсик:

DECLARE SUB F(n)
DECLARE SUB G(n)
SUB F(n)
  IF n > 2 THEN
     PRINT n
     F(n - 1)
     G(n - 2)
  ELSE
     PRINT n+2
  END IF
END SUB
SUB G(n)
  PRINT n
  IF n > 2 THEN
     G(n - 1)
     F(n - 2)
  END IF
END SUB

Python:

def F(n):
    if n > 2:
        print(n, end='')
        F(n - 1)
        G(n - 2)
    else:
        print(n+2, end='')
 
def G(n):
    print(n, end='')
    if n > 2:
        G(n - 1)
        F(n - 2)

С++:

void G(int n);
void F(int n) {
	if (n > 2) {
	  std::cout << n;
	  F(n - 1);
	  G(n - 2);		
	  }
	else
	  std::cout << n+2;
}
void G(int n) {
	std::cout << n;
	if (n > 2) {
	  G(n - 1);
	  F(n - 2);
	  } 
}

Типовые задания для тренировки

✍ Решение:

При истинности условия функция F также, как и функция G «запускает» еще две функции: функция F: 1)F(n — 1) и 2)G(n — 2), а функция G: 1)G(n — 1) и 2)F(n — 2).
Рассмотрим последовательно алгоритм работы функций, нумеруя вызовы функций. Для удобства будем делать отступы для каждой функции. Таким образом, для вызова каждой функции должно быть два внутренних вызова:

F(5) = 5 (на экране)
1) F(n - 1), т.е. F(4)
    F(4) = 4(на экране)
    1) F(n - 1), т.е. F(3)
           F(3) = 3(на экране)
           1) F(n - 1), т.е. F(2)
                  F(2) = n + 2 = 4 (на экране) (блок else)
           2) G(n - 2), т.е. G(1)
   	          G(1) = 1 (на экране)
    2) G(n - 2), т.е. G(2)
	   G(2) = 2 (на экране)
2) G(n - 2), т.е. G(3)
    G(3) = 3 (на экране)
    1)G(n - 1), т.е. G(2)
           G(2) = 2 (на экране)
    2) F(n - 2), т.е. F(1)
           F(1) = n + 2 = 3 (на экране) (блок else)

Перепишем сверху вниз все цифры, выведенные на экран:

543412323

Ответ: 543412323

Источник

Редактировать

Внимание!

Обновлено 24.03.2022

Мы рекомендуем всем, кто готовит и готовится к сдаче ЕГЭ, ограничиться возможностями PascalABC.NET 3.8.3. Эта версия вышла в начале марта 2022 года. Язык продолжает развиваться и совершенствоваться, но невозможно обеспечить на станциях ЕГЭ наличие самой последней версии программного обеспечения. Использование более ранних версий лишит школьника некоторых имеющихся в языке возможностей и потребует самостоятельно искать для них эквивалентные замены.

Мы призываем тех работников образования, от которых зависит состояние программных средств на станциях ЕГЭ, заблаговременно установить любую доступную сборку версии 3.8.3 или выше.

Просим руководство учебных заведений принять к сведению, что многие школьники, занимаясь самостоятельно или с репетиторами, используют именно эту версию и, обнаружив на экзамене версию более старую, могут показать результат гораздо ниже своих возможностей.

Рекомендуется скачивать текущую версию на сайте.

Об этом документе

Здесь представлены решения некоторых задач
демонстрационного варианта ЕГЭ по информатике 2021.

Решения даются с кратким описанием алгоритма и концентрируются в основном на демонстрации возможностей языка.

Решения сбалансированы по простоте записи и восприятия в балансе с новыми возможностями.

В сети можно встретить либо более длинные и непонятные решения на старом языке Паскаль либо переусложнённые и малопонятные для школьника решения с использованием всех возможностей языка. Ни тот ни другой стиль записи программ нами не рекомендуется.

Великолепный разбор задач типа 25 и 26 ЕГЭ по информатике 2021 на чистом PascalABC.NET дан К.Ю.Поляковым в данной презентации. Здесь представлены наиболее эффективные и неочевидные решения.

О PascalABC.NET

PascalABC.NET – современный диалект языка программирования Паскаль, позволяющий записывать код компактно и понятно, используя современные языковые возможности. Это делает программу яснее и как следствие сокращает число возможных ошибок на ЕГЭ по информатике, связанных с волнением и другими субъективными причинами.

Данный текст составлен разработчиками языка и рассматривает ряд вопросов, связанных с использованием PascalABC.NET при сдаче ЕГЭ по информатике. Он ориентирован:

на школьников, использующих при сдаче ЕГЭ PascalABC.NET как язык реализации программ
на преподавателей, которые при подготовке школьников к сдаче ЕГЭ по информатике используют PascalABC.NET

Важно! Данный текст не рассматривает вопросы, связанные с методикой решения задач. Он лишь описывает то, как на PascalABC.NET сделать запись алгоритмов лучше, сохранив при этом эффективность.

PascalABC.NET имеет множество языковых возможностей и множество стилей программирования, поскольку обобщает современные языковые и библиотечные возможности сразу нескольких современных языков программирования (C#, Python, Kotlin).

При решении задач ЕГЭ по информатике мы рекомендуем использовать лишь ограниченный набор возможностей PascalABC.NET, которые делают текст программы яснее и короче, позволяя концентрироваться на сути алгоритма, а не на технических деталях.

К базовым возможностям языка, рекомендуемым нами при решении задач ЕГЭ, относятся:

Описания переменных внутри блока в том месте, где они впервые потребовались. Это ликвидирует длинные перечни описания переменных до beginа основной программы, ухудшающие читаемость и лёгкость написания программы.
Автовывод типа переменной при описании с инициализацией (var a := 1).
Использование описания счётчика цикла for в заголовке цикла (for var i).
Функции ввода вида ReadInteger, ReadReal, ReadInteger2 и т.д., позволяющие одной строкой описывать и вводить переменную в любом месте операторного блока программы (var a := ReadInteger).
Процедуры вывода Print, Println, автоматически разделяющие элементы вывода пробелами.
Цикл loop – аналог цикла for, использующийся когда счётчик цикла не нужен.
Кортежи и распаковка кортежей в переменные, называемая также множественным присваиванием: (a,b) := (1,1).

Кроме того, в некоторых задачах уместно использование лямбда-выражений как параметров стандартных методов.

Все представленные здесь решения сбалансированно сочетают простоту и понятность записи и использование новых возможностей.

Задача 17

Рассматривается множество целых чисел, принадлежащих числовому
отрезку [1016; 7937], которые делятся на 3 и не делятся на 7, 17, 19, 27.
Найдите количество таких чисел и максимальное из них.
В ответе запишите два целых числа: сначала количество, затем
максимальное число.

Решение 1. Минимум новых возможностей; длинная запись условия, уводящая от сути

begin
  var count := 0;
  var max := -MaxInt;
  for var x := 1016 to 7937 do
    if (x mod 3 = 0) and (x mod 7 <> 0) and (x mod 17 <> 0) and 
       (x mod 19 <> 0) and (x mod 27 <> 0) then
    begin
      count += 1;
      if x > max then
        max := x;
    end;
  Print(count,max);
end.

Ответ.
1568 7935

Решение 2. Использование методов Divs и DivsAny

begin
  var count := 0;
  var max := -MaxInt;
  for var x := 1016 to 7937 do
    if x.Divs(3) and not x.DivsAny(7, 17, 19, 27) then
    begin
      count += 1;
      if x > max then
        max := x;
    end;
  Print(count,max);
end.

Решение 2а. Заметим, что максимальный элемент является последним удовлетворяющим условию

begin
  var count := 0;
  var last := 0;
  for var x := 1016 to 7937 do
    if x.Divs(3) and not x.DivsAny(7, 17, 19, 27) then
    begin
      count += 1;
      last := x;
    end;
  Print(count,last);
end.

Решение 3. Использование последовательностей

begin
  // Рассмотрим последовательность целых от 1016 до 7937, делящихся на 3 и не делящихся ни на одно из 7, 17, 19, 27
  var seq := (1016..7937).Where(x -> x.Divs(3) and not x.DivsAny(7, 17, 19, 27));
  // Выведем количество элементов этой последовательности и ее максимальный элемент
  Print(seq.Count,seq.Max);
end.

Замечание. Аналогично предыдущему вместо seq.Max можно использовать seq.Last

Задача 25

Напишите программу, которая ищет среди целых чисел, принадлежащих
числовому отрезку [174457; 174505], числа, имеющие ровно два различных
натуральных делителя, не считая единицы и самого числа. Для каждого
найденного числа запишите эти два делителя в таблицу на экране с новой
строки в порядке возрастания произведения этих двух делителей. Делители
в строке таблицы также должны следовать в порядке возрастания.

Решение 1

Для получения всех делителей составим функцию, которая будет помещать все получаемые делители в список.
Это неэффективно (нужны только числа с ровно двумя делителями), но для приводимых на ЕГЭ значений
программа выполняется мгновенно, поэтому писать более оптимальный алгоритм не следует.

function Divisors(N: integer): List<integer>;
begin
  Result := new List<integer>;
  for var i:=2 to N-1 do
    if N.Divs(i) then
      Result.Add(i);
end;

begin
  for var N := 174457 to 174505 do
  begin
    var d := Divisors(N);
    if d.Count = 2 then
      Println(d[0],'|',d[1]);
  end;
end.

Ответ.

Решение 2

Без использования функции

begin
  for var N := 174457 to 174505 do
  begin
    var d := new List<integer>;
    for var i:=2 to N-1 do
      if N mod i = 0 then
        d.Add(i);
    if d.Count = 2 then
      Println(d[0],'|',d[1]);
  end;
end.

Решение 3

Более эффективное, в котором список делителей не пополняется если уже содержит более двух делителей.
Это решение — на случай достаточно больших значений N, что трудно представить на ЕГЭ

begin
  for var N := 174457 to 174505 do
  begin
    var d := new List<integer>;
    for var i:=2 to N-1 do
    begin  
      if N mod i = 0 then
        d.Add(i);
      if d.Count > 2 then // Это условие даёт более эффективное решение
        break;
    end;  
    if d.Count = 2 then
      Println(d[0],'|',d[1]);
  end;
end.

Данное решение тем не менее будет медленно работать при очень больших N, однако подобное усложнение невозможно на ЕГЭ — оно делает задачу олимпиадной. Однако, решение есть и в этом случае. Оптимизации решения задачи 25 рассмотрены в презентации К.Ю. Полякова.

Задача 26

Системный администратор раз в неделю создаёт архив пользовательских
файлов. Однако объём диска, куда он помещает архив, может быть меньше,
чем суммарный объём архивируемых файлов.
Известно, какой объём занимает файл каждого пользователя.
По заданной информации об объёме файлов пользователей и свободном
объёме на архивном диске определите максимальное число пользователей,
чьи файлы можно сохранить в архиве, а также максимальный размер
имеющегося файла, который может быть сохранён в архиве, при условии,
что сохранены файлы максимально возможного числа пользователей.

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

В первой строке входного файла находятся два числа: S – размер свободного
места на диске (натуральное число, не превышающее 10 000)
и N – количество пользователей (натуральное число, не превышающее
1000). В следующих N строках находятся значения объёмов файлов каждого
пользователя (все числа натуральные, не превышающие 100), каждое
в отдельной строке.
Запишите в ответе два числа: сначала наибольшее число пользователей, чьи
файлы могут быть помещены в архив, затем максимальный размер
имеющегося файла, который может быть сохранён в архиве, при условии,
что сохранены файлы максимально возможного числа пользователей.

Пример входного файла:

При таких исходных данных можно сохранить файлы максимум двух
пользователей. Возможные объёмы этих двух файлов 30 и 40, 30 и 50 или 40
и 50. Наибольший объём файла из перечисленных пар – 50, поэтому ответ
для приведённого примера:

Решение 1

begin 
  Assign(input, '26.txt'); 
  var (S,N) := ReadInteger2;
  var data := ReadArrInteger(N);
  Sort(data);  
  var (total,count) := (0,0);
  while (count < N) and (total + data[count] <= S) do
  begin
    total += data[count];
    count += 1;
  end;
  var delta := S - total;
  Println(count, data.Last(x -> x - data[count-1] <= delta));
end.

Решение скорее всего позаимствовано с сайта К. Полякова с косметическими правками в стиле PascalABC.NET.

Решения аналогичных задач на чистом PascalABC.NET содержатся в презентации К.Ю. Полякова.

Ответ.

Задача 27

Имеется набор данных, состоящий из пар положительных целых чисел.
Необходимо выбрать из каждой пары ровно одно число так, чтобы сумма
всех выбранных чисел не делилась на 3 и при этом была максимально
возможной. Гарантируется, что искомую сумму получить можно.
Программа должна напечатать одно число – максимально возможную
сумму, соответствующую условиям задачи.

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

Даны два входных файла (файл A и файл B), каждый из которых содержит
в первой строке количество пар N (1 ≤ N ≤ 100000). Каждая из следующих
N строк содержит два натуральных числа, не превышающих 10 000.

Пример организации исходных данных во входном файле:

Для указанных входных данных значением искомой суммы должно быть
число 32.
В ответе укажите два числа: сначала значение искомой суммы для файла А,
затем для файла B.
Предупреждение: для обработки файла B не следует использовать
переборный алгоритм, вычисляющий сумму для всех возможных вариантов,
поскольку написанная по такому алгоритму программа будет выполняться
слишком долго.

Решение 1

begin
  Assign(input,'27-b.txt');
  var (s, d) := (0, MaxInt);
  var n := ReadInteger;
  loop n do
  begin
    var (a,b) := ReadInteger2;
    s += Max(a,b);
    var diff := Abs(a-b);
    if diff mod 3 <> 0 then
      d := Min(d, diff)
  end;  
  if s mod 3 <> 0 then
    Print(s)
  else Print(s-d)
end.

Решение скорее всего позаимствовано с сайта К. Полякова с косметическими правками в стиле PascalABC.NET.

Ответ.

Далее рассматриваются задачи, которые не требуют решения в виде программы, однако с помощью программы можно проверить ответ.

Задача 5

На вход алгоритма подаётся натуральное число N. Алгоритм строит по нему
новое число R следующим образом.

Строится двоичная запись числа N.
К этой записи дописываются справа ещё два разряда по следующему
правилу:

а) складываются все цифры двоичной записи числа N, и остаток
от деления суммы на 2 дописывается в конец числа (справа). Например,
запись 11100 преобразуется в запись 111001;

б) над этой записью производятся те же действия – справа дописывается
остаток от деления суммы её цифр на 2.

Полученная таким образом запись (в ней на два разряда больше, чем
в записи исходного числа N) является двоичной записью искомого числа R.
Укажите такое наименьшее число N, для которого результат работы
данного алгоритма больше числа 77. В ответе это число запишите
в десятичной системе счисления.

Пояснение

Для решения используется функция Bin модуля School, содержащего ряд базовых математических алгоритмов:

uses School;

begin
  for var NN := 1 to 100 do
  begin
    var N := NN;
    var rem := Bin(N).Count(d->d='1') mod 2;
    N := 2*N + rem;
    rem := Bin(N).Count(d->d='1') mod 2;
    N := 2*N + rem;
    Println(NN,N);
  end;
end.

Задача 12

Исполнитель Редактор получает на вход строку цифр и преобразовывает её.
Редактор может выполнять две команды, в обеих командах v и w обозначают
цепочки цифр.

А) заменить (v, w).

Эта команда заменяет в строке первое слева вхождение цепочки v на
цепочку w. Например, выполнение команды
заменить (111, 27)
преобразует строку 05111150 в строку 0527150.
Если в строке нет вхождений цепочки v, то выполнение команды
заменить (v, w) не меняет эту строку.

Б) нашлось (v).

Эта команда проверяет, встречается ли цепочка v в строке исполнителя
Редактор. Если она встречается, то команда возвращает логическое значение
«истина», в противном случае возвращает значение «ложь». Строка
исполнителя при этом не изменяется.

Цикл

ПОКА условие
  последовательность команд
КОНЕЦ ПОКА

выполняется, пока условие истинно.

В конструкции

ЕСЛИ условие
  ТО команда1
  ИНАЧЕ команда2
КОНЕЦ ЕСЛИ

выполняется команда1 (если условие истинно) или команда2 (если условие
ложно).

Какая строка получится в результате применения приведённой ниже
программы к строке, состоящей из 70 идущих подряд цифр 8? В ответе
запишите полученную строку.

НАЧАЛО
  ПОКА нашлось (2222) ИЛИ нашлось (8888)
    ЕСЛИ нашлось (2222)
      ТО заменить (2222, 88)
      ИНАЧЕ заменить (8888, 22)
    КОНЕЦ ЕСЛИ
  КОНЕЦ ПОКА
КОНЕЦ

Решение. Условие — слишком длинное ))

begin
  var s := 70 * '8';
  
  while ('2222' in s) or ('8888' in s) do
    if '2222' in s
      then s := s.Replace('2222', '88', 1)
    else s := s.Replace('8888', '22', 1);
  Print(s);
end.

Ответ

Задача 14

Значение арифметического выражения: 49⁷ + 7²¹ – 7 – записали в системе
счисления с основанием 7. Сколько цифр 6 содержится в этой записи?

Решение.

begin
  var bb := 49bi ** 7 + 7bi ** 21 - 7;
  
  var count := 0;
  repeat
    if bb mod 7 = 6 then
      count += 1;  
    bb := bb div 7;
  until bb = 0;
  
  Count.Print; 
end.

Пояснение 49bi, 7bi — это константы типа BigInteger

Ответ

Решение 2. Используем стандартный метод ToBase модуля School и стандартный метод последовательностей CountOf:

uses School;

begin
  (49bi ** 7 + 7bi ** 21 - 7).ToBase(7).CountOf('6').Print
end.

Задача 15

Обозначим через ДЕЛ(n, m) утверждение «натуральное число n делится без
остатка на натуральное число m».
Для какого наибольшего натурального числа А формула

¬ДЕЛ(x, А) → (ДЕЛ(x, 6) → ¬ДЕЛ(x, 9))

тождественно истинна (то есть принимает значение 1 при любом
натуральном значении переменной х)?

Решение.

begin
  // Возьмём большой диапазон a: от 1 до 10000
  for var a := 10000 downto 1 do
    // Если для всех натуральных x (возьмём некоторый большой диапазон) 
    // выполняется условие задачи, то мы нашли a
    if (1..100000).All(x -> not x.Divs(a) <= (x.Divs(6) <= not x.Divs(9))) then
    begin  
      Print(a);
      break;
    end;
end.

Пояснение Импликация → в PascalABC.NET описывается операцией <=. Это легко показать таблицей истинности.

Пояснение

Тип BigInteger указан “на всякий случай” — если будут возникать очень большие целые. В задачах ЕГЭ — вряд ли

Задача 16

Алгоритм вычисления значения функции F(n), где n – натуральное число,
задан следующими соотношениями:

F(n) = 1 при n = 1;
F(n) = n + F(n − 1), если n – чётно,
F(n) = 2 × F(n − 2), если n > 1 и при этом n – нечётно.

Чему равно значение функции F(26)?

Решение.

function F(n: integer): BigInteger;
begin
  if n = 1 then Result := 1
  else if n.IsEven then Result := n + F(n - 1)
  else Result := 2 * F(n - 2);
end;

begin
  F(26).Print 
end.

Ответ

Источник

Примеры заданий ЕГЭ по информатике с решением на Паскале. На странице использованы условия задач из демо вариантов и задачника с сайта Полякова Константина Юрьевича (kpolyakov.spb.ru)

Содержание

Задание 5
Задание 6
Задание 14
Задание 15
Задание 16
Задание 17
Задание 22
Задание 24
Задание 25

Задание 5

Демо-2022
На вход алгоритма подаётся натуральное число N. Алгоритм строит по нему новое число R следующим образом.
1. Строится двоичная запись числа N.
2. К этой записи дописываются справа ещё два разряда по следующему
правилу:
а) складываются все цифры двоичной записи числа N, и остаток от деления суммы на 2 дописывается в конец числа (справа). Например, запись 11100 преобразуется в запись 111001;
б) над этой записью производятся те же действия – справа дописывается остаток от деления суммы её цифр на 2.
Полученная таким образом запись (в ней на два разряда больше, чем в записи исходного числа N) является двоичной записью результирующегочисла R.
Укажите такое наименьшее число N, для которого результат работы данного алгоритма больше числа 77. В ответе это число запишите в десятичной системе счисления.

Решение:

var
  n, i, b, s, k: integer;
  r: real;
  st: string;
begin
  for n := 1 to 100 do
  begin
    k := n; //перебор исходного числа N
    s := 0; //сумма цифр двоичного кода
    r := 0; //результирующее десятичное число R
    st := ''; //очищаем строку двоичного кода для нового числа
    while k >= 1 do //цикл перевода в двоичный код исходного числа
    begin
      s := s + (k mod 2); //вычисление суммы цифр двоичного кода
      st := st + (k mod 2);//формирование строки двоичного кода из остатков деления на 2
      k := k div 2;// деление на 2
    end;
    st := ReverseString(st) + s mod 2; //переворачиваем код и дописываем остаток
    s := s + s mod 2;//вычисление суммы нового кода
    st := st + s mod 2;//формирование строки двоичного кода с добавлением остатка
    for i := 1 to Length(st) do //преобразование двоичного кода в десятичное число
      if st[i] = '1' then r := r + power(2, Length(st) - i);
    if r > 77 then begin println(n, r);break; end;//вывод найденных чисел
  end;
end.

Задание 6

Демо-2022 Определите, при каком наибольшем введённом значении переменной s программа выведет число 64.

Решение: Используем исходный код. Добавим в него цикл перебора значений S и вывода при выполнении условия. Последнее значение и будет ответом.

var
  s, n, i: integer;
begin
  for i := 1 to 510 do
  begin
    s := i;  
    s := s div 10;
    n := 1;
    while s < 51 do
    begin
      s := s + 5;
      n := n * 2
    end;
    if n = 64 then writeln(i);
  end;
end.

Задание 14

Демо-2022 Значение арифметического выражения: 3*4³⁸+2*4²³+4²⁰+3*4⁵+2*4⁴+1 – записали в системе счисления с основанием 16. Сколько значащих нулей содержится в этой записи?

Решение:

var k,x:biginteger;
begin
  k:=0;
	x:=3*4bi**38+2*4bi**23+4bi**20+3*4bi**5+2*4bi**4+1;
	while x>0 do
	begin
		if x mod 16=0 then k:=k+1;
		x:=x div 16;
	end;
  print(k)
end.

Демо-2021 Значение арифметического выражения: 49⁷ + 7²¹ – 7 – записали в системе счисления с основанием 7. Сколько цифр 6 содержится в этой записи?

Решение:

var s, i,k6,x:integer;
osn,n:biginteger;
begin
  osn:=7; 
    k6:=0;
    n:=power(osn,14)+power(osn,21)-7;
    while n>0 do
    begin
      if n mod 7 = 6 then k6:=k6+1;
      n:=n div 7;
    end;
      print(k6);          
end.

Демо-2020 Какая строка получится в результате применения приведённой ниже программы к строке, состоящей из 70 идущих подряд цифр 8? В ответе запишите полученную строку.
НАЧАЛО
_ПОКА нашлось (2222) ИЛИ нашлось (8888)
__ЕСЛИ нашлось (2222)
___ТО заменить (2222, 88)
___ИНАЧЕ заменить (8888, 22)
__КОНЕЦ ЕСЛИ
_КОНЕЦ ПОКА
КОНЕЦ

Решение:

begin
  var s: string := '8' * 70;
  while (s.contains('2222')) or (s.contains('8888')) do
  begin
    if (s.contains('2222')) then
      s := s.replace('2222', '88')
    else
      s := s.replace('8888', '22');
  end;
  writeln(s);
end.

Задание 15

Демо-2021 Обозначим через ДЕЛ(n, m) утверждение «натуральное число n делится без остатка на натуральное число m». Для какого наибольшего натурального числа А формула ¬ДЕЛ(x, А) → (ДЕЛ(x, 6) → ¬ДЕЛ(x, 9)) тождественно истинна (то есть принимает значение 1 при любом натуральном значении переменной х)?

Решение:

// Делители
var
 a,x, flag: integer;
 
begin
  for  a := 1 to 100 do
  begin
    flag := 0;
    for x := 1 to 1000 do
      if not(x mod a = 0) <= ((x mod 6 = 0) <= not (x mod 9 = 0)) = false then begin
        flag := 1;
        break;
      end;
    if flag = 0 then print(a);
  end;
end.

К.Поляков №161 Определите наименьшее натуральное число A, такое что выражение
(X & 29 ≠ 0) → ((X & 17 = 0) → (X & A ≠ 0))
тождественно истинно (то есть принимает значение 1 при любом натуральном значении переменной X)?

Посмотреть решение

var
  A, x, flag: integer;
 
begin
  for A := 0 to 31 do
  begin
    flag := 0;
    for x := 0 to 31 do
      if (((x and 29) = 0) or ((x and 17) <> 0) or ((x and A) <> 0))=false then flag := 1;
      if flag = 0 then 
	  begin
        writeln(A); 
	    break;
      end;
  end;
end.

Задание 16

Демо-2022 Алгоритм вычисления значения функции F(n), где n – натуральное число, задан следующими соотношениями:
F(n) = 1 при n = 1;
F(n) = n + F(n − 1), если n – чётно,
F(n) = 2 × F(n − 2), если n > 1 и при этом n – нечётно.
Чему равно значение функции F(26)?

Решение:

var
  i, n: integer;
  f: array[1..100] of integer;
begin
  print('Введите значение n');
  readln(n);
  f[1] := 1;
  for i := 2 to n do 
    if i mod 2 = 0 then f[i] := i + f[i - 1] else f[i] := 2 * f[i - 2];
  print(f[n]);
end.

К.Поляков №46Алгоритм вычисления функции F(n) задан следующими соотношениями:
F(n) = n при n ≤ 3;
F(n) = 2 · n · n + F(n – 1) при чётных n > 3;
F(n) = n · n · n + n + F(n – 1) при нечётных n > 3;
Определите количество натуральных значений n, при которых F(n) меньше, чем 10⁷.

Посмотреть решение

var
  i: integer;
  f: array[1..1000] of integer;
begin
  i:=3;
  f[1] := 1;
  f[2] := 2;
  f[3] := 3;
 while f[i]< 10**7 do 
   begin
    i:=i+1;
    if i mod 2 = 0 then f[i] := 2*i*i + f[i - 1] else f[i] := i*i*i+i +f[i - 1];    
    end;
  print(i-1);// не учитываем последнее число
end.

Задание 17

Демо-2022
В файле содержится последовательность целых чисел. Элементы последовательности могут принимать целые значения от –10 000 до 10 000 включительно. Определите и запишите в ответе сначала количество пар элементов последовательности, в которых хотя бы одно число делится на 3, затем максимальную из сумм элементов таких пар. В данной задаче под парой подразумевается два идущих подряд элемента последовательности.

Файл с данными: 17.txt

Решение:

var a,b,k,maxsum: integer;  
begin    
  Assign( input, '17.txt' );
  maxsum:=-20000; k:=0;
  readln(a);
  while not eof do begin
  readln(b);
  if (a mod 3 = 0) or (b mod 3 = 0) then begin
            k := k + 1;
            if a + b > maxsum then maxsum := a + b;
        end;
        a := b;
    end;
  Println( k, maxsum)
end.

Задание 22

Демо-2022
Ниже на языке программирования записан алгоритм. Получив на вход число x, этот алгоритм печатает два числа: L и M. Укажите наибольшее число x, при вводе которого алгоритм печатает сначала 4,а потом 5.

Решение:

var
  x, i, L, M, Q: integer;
begin
  for i := 9 to 50 do
  begin
    x := i;
    Q := 9;
    L := 0;
    while x >= Q do
    begin
      L := L + 1;
      x := x - Q;
    end;
    M := x;
    if M < L then
    begin
      M := L;
      L := x;
    end;
    if (L = 4) and (M = 5) then print(i);
  end;
end.

Задание 24

Демо-2022
Текстовый файл состоит из символов P, Q, R и S. Определите максимальное количество идущих подряд символов в прилагаемом файле, среди которых нет идущих подряд символов P. Для выполнения этого задания следует написать программу.

Файл с данными: 24.txt

Решение:

var
  i, maxlen, curlen: longint;  {описание переменных}
  s: string;
  f: text;{текстовый файл}
begin
  assign(f, '24.txt');    {исходный текстовые файл с данными}
  reset(f);
  readln(f, s);{открываем файл для чтения данных}
  maxlen := 1;            
  curlen := 1; 
  for i := 2 to Length(s) do 
    if not ((s[i] = 'P') and (s[i-1] = 'P')) then 
    begin
      curLen := curLen + 1;
      if curLen > maxLen then maxLen := curLen;
    end
    else curLen := 1;
  writeln(maxLen);   
  close(f);     { закрываем файл}
end.

Задание 25

Демо-2022
Пусть M – сумма минимального и максимального натуральных делителей целого числа, не считая единицы и самого числа. Если таких делителей и у числа нет, то значение M считается равным нулю. Напишите программу, которая перебирает целые числа, большие 700 000, в порядке возрастания и ищет среди них такие, для которых значение M оканчивается на 8. Выведите первые пять найденных чисел и соответствующие им значения M.
Формат вывода: для каждого из пяти таких найденных чисел в отдельной строке сначала выводится само число, затем – значение М.
Строки выводятся в порядке возрастания найденных чисел.

Решение:

var
  d1, chislo: integer;
begin
  for chislo := 700001 to 700100 do
    for d1 := 2 to chislo - 1 do
      if chislo mod d1 = 0 then begin
        if (d1 + chislo div d1) mod 10 = 8 then println(chislo, d1 + chislo div d1);
        break;
      end;
end.

Источник