k: integer;

Begin

Read(a);

k: = 1;

s: = 1;

while s< =a do begin

k: = k + 1;

s: = 1.0/k;

End;

Write(k);

End.

Последовательно выполните следующее.

1. Напишите, что выведет эта программа при вводе числа 0.4.

2. Сколько существует натуральных чисел А, при вводе которых программа выведет ответ 2?

3. Найдите в программе все ошибки (их может быть одна или несколько). Для каждой ошибки выпишите строку, в которой она допущена, и приведите эту же строку в исправленном виде.

57) Для заданного положительного вещественного числа A необходимо найти минимальное целое число K, при котором выполняется неравенство . Для решения этой задачи ученик написал такую программу:

var a, s: real;

K: integer;

Begin

Read(a);

k: = 0;

s: = 1;

while s > = a do begin

k: = k + 1;

s: = s + 1.0/k;

End;

Write(k);

End.

Последовательно выполните следующее.

1. Напишите, что выведет эта программа при вводе числа 1.4.

2. Сколько существует натуральных чисел А, при вводе которых программа выведет ответ 1?

3. Найдите в программе все ошибки (их может быть одна или несколько). Для каждой ошибки выпишите строку, в которой она допущена, и приведите эту же строку в исправленном виде.

[1] Далее при разборе задачи используется язык Паскаль, который наиболее распространен в школах России.

[2] Источники заданий:

1. Демонстрационные варианты ЕГЭ 2004-2013 гг.

2. Тренировочные и диагностические работы МИОО.

3. Гусева И.Ю. ЕГЭ. Информатика: раздаточный материал тренировочных тестов. — СПб: Тригон, 2009.

4. Крылов С.С., Лещинер В.Р., Якушкин П.А. ЕГЭ-2010. Информатика. Универсальные материалы для подготовки учащихся / под ред. В.Р. Лещинера / ФИПИ. — М.: Интеллект-центр, 2010.

5. Абрамян М.Э., Михалкович С.С., Русанова Я.М., Чердынцева М.И. Информатика. ЕГЭ шаг за шагом. — М.: НИИ школьных технологий, 2010.