PDF-версии: 
Факториалом натурального числа n (обозначается n!) называется произведение всех натуральных чисел от 1 до n. Например, 4! = 1 · 2 · 3 · 4 = 24.
Дано целое положительное число A. Необходимо найти ближайшее к A число, которое является точным факториалом какого-либо натурального числа. Если два точных факториала одинаково близки к A, нужно выбрать меньший из них. Например, для A = 15 нужно получить ответ 6, а для A = 20 – ответ 24.
Для решения этой задачи ученик написал программу, но, к сожалению, его программа неправильная.
Ниже эта программа для Вашего удобства приведена на пяти языках программирования.
| Бейсик | Python |
|---|---|
DIM A, K, F AS INTEGER INPUT A K = 0 F = 1 WHILE F <= A K = K + 1 F = F * K WEND IF F − A > A − F \ K THEN F = F \ K K = K − 1 END IF PRINT K END
| a = int(input()) k = 0 f = 1 while f <= a: k += 1 f *= k if f − a > a − f // k: f //= k k −= 1 print(k)
|
| Паскаль | Алгоритмический язык |
var a, k, f: integer; begin read(a); k := 0; f := 1; while f <= a do begin k := k + 1; f := f * k end; if f−a > a − f div k then begin f := f div k; k := k − 1; end; writeln(k) end.
| алг нач цел a, k, f ввод a k := 0 f := 1 нц пока f <= a k := k + 1 f := f * k кц если f − a > a − div(f,k) то f := div(f,k) k := k − 1 все вывод k кон |
| С++ | |
#include <iostream> using namespace std; int main(){ int a, k, f; cin >> a; k = 0; f = 1; while (f <= a) { ++k; f *= k; } if (f − a > a − f/k) { f = f/k; −−k; } cout << k; return 0; }
| |
Последовательно выполните следующее.
1. Напишите, что выведет эта программа при вводе A = 7.
2. Приведите пример числа A, при котором программа выведет верный ответ. Укажите этот ответ.
3. Найдите в программе все ошибки (известно, что их не больше двух) и исправьте их. Для каждой ошибки выпишите строку, в которой она допущена, и приведите эту же строку в исправленном виде.
Достаточно указать ошибки и способ их исправления для одного языка программирования.
Обратите внимание: Вам нужно исправить приведённую программу, а не написать свою. Вы можете только заменять ошибочные строки, но не можете удалять строки или добавлять новые. Заменять следует только ошибочные строки: за исправления, внесённые в строки, не содержащие ошибок, баллы будут снижаться.