Question

В! много ! 9 8) известен факториал числа n. найти это число. 15) начав тренировки, лыжник в первый день пробежал 10км. каждый следующий день он увеличивал длину пробега на 10% от пробега предыдущего дня. определить: а) в какой день он пробежит больше 20 км; б) в какой день суммарный пробег за все дни превысит 100км. 26) дано натуральное число: в) предпоследнюю цифру заменить на 0;

Answer 1

Вот оттестированный мой вариант программы. Тестировал на числах от 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.

Answer 2

15) Pascal ABC
var
n,i:integer;
a:real;
begin
a:=10;
readln(n);
For i:= 1 to n do a:=a*1.1;
writeln(a);
end.      
а)8
б)25
26)
var
n:integer;
begin
readln(n);
n:=(n div 100)*100+n mod 10;
writeln(n);
end.