|
|
ЕГЭ по информатикеГенератор вариантов ЕГЭЧто это такое?
Здесь вы можете можете построить вариант теста в формате ЕГЭ, основанного
Источники задач: демо-варианты ФИПИ, Новости теперь и в
|
Telegram-канале
|
|
Что это такое?Здесь представлены материалы для подготовки к ЕГЭ по информатике. Автор признателен
Особая благодарность Н.Н. Паньгиной (г. Сосновый Бор) за
Автор будет благодарен за новые отзывы по поводу представленных Тренажёр компьютерного ЕГЭЕГЭ по информатике в 2023 году будет проводиться в компьютерной форме.
Авторские семинарыЕсли вы хотите пригласить авторов учебника в свой город Робот-Blockly
Коллеги тащат то, что не приколочено…
Актуальные публикации
См. также полный список статей. Что еще посмотреть?
Новости теперь и в
|
|
|
Этот сайт больше не обновляется. Сайт К. Полякова «Преподавание, наука и жизнь» Пожалуйста, обновите свои закладки. Через 5 секунд вы будете перенаправлены ЕГЭ по информатикеГенератор вариантов ЕГЭСпасибо! Ваше сообщение было успешно отправлено. Что это такое?
Здесь вы можете можете построить вариант теста в формате ЕГЭ, основанного
Источники задач: демо-варианты ФИПИ, Готовые вариантыБаза данных содержит 20 различных полных вариантов ЕГЭ, то есть
С помощью переключателей можно выбрать нужные группы задач, Построить вариант
Учитель может сгенерировать случайный вариант и сообщить ученикам его код. КомментарииВы можете написать свои отзывы и пожелания по поводу генератора |
Материалы для подготовки к ЕГЭ по информатике К. Ю. Полякова
Лицензионное соглашение
Все опубликованные ниже материалы для подготовки к ЕГЭ по информатике могут быть свободно использованы
в некоммерческих целях при условии сохранения авторства. Без письменного согласия автора
ЗАПРЕЩАЕТСЯ:
- публикация материалов в любой форме, в том числе размещение материалов на других Web-сайтах;
- распространение неполных или измененных материалов;
- включение материалов в сборники на любых носителях информации;
- получение коммерческой выгоды от продажи или другого использования материалов.
Скачивание материалов означает, что вы приняли условия этого лицензионного соглашения.
Информация (задания 4, 7, 8, 11)
Системы счисления (задание 14)
Логика (задания 2, 15)
Пользовательский курс (задания 1, 3, 9, 10, 13)
Алгоритмизация и основы программирования (задания 5, 6, 12, 16−27)
Ответы и решения
———-
Оригинал страницы: http://kpolyakov.spb.ru/school/ege.htm.
Public user contributions licensed under
cc-wiki license with attribution required
3 ноября 2020
В закладки
Обсудить
Жалоба
Генератор вариантов ЕГЭ по информатике
На сайте kpolyakov.spb.ru запущен генератор вариантов компьютерного ЕГЭ. 2700 задач с ответами.
Формат 2021 года.
Перейти к сервису: kpolyakov.spb.ru/school/ege/generate.htm
Для создания уникального варианта нажмите кнопку «Построить вариант».
Примеры заданий ЕГЭ по информатике с решением на Паскале. На странице использованы условия задач из демо вариантов и задачника с сайта Полякова Константина Юрьевича (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*438+2*423+420+3*45+2*44+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 Значение арифметического выражения: 497 + 721 – 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) меньше, чем 107.
Посмотреть решение
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.