Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

СРОЧНО В ПАСКАЛЕ!!!!! МНОГО БАЛЛОВ ДАЮ!!! 9 КЛАСССС
8) Известен факториал числа n. Найти это число.
15) Начав тренировки, лыжник в первый день пробежал 10км. Каждый следующий день он увеличивал длину пробега на 10% от пробега предыдущего дня. Определить:
а) в какой день он пробежит больше 20 км;
б) в какой день суммарный пробег за все дни превысит 100км.
26) Дано натуральное число:
в) предпоследнюю цифру заменить на 0;

Ответ оставил Гость

Вот оттестированный мой вариант программы. Тестировал на числах от 1 до 6. Писать начал чуть раньше Антагониста, но он оказался шустрее :))

//PascalABC
//NaaMan
//Программа расчитана ТОЛЬКО на факториалы
//Проверки ошибочного ввода НЕТ
var n, result, i : real;
begin
    write(Введите факториал > );
    readln(n);
    if (n = 1) then
        result := 1
    else begin
        i := 2;
        while n <> 1 do begin
            n := n / i;
            result := i;
            i := i + 1;
        end;
    end;
    writeln(Число , result);
end.