СРОЧНО В ПАСКАЛЕ!!!!! МНОГО БАЛЛОВ ДАЮ!!! 9 КЛАСССС 8) Известен факториал числа n. Найти...

Question

СРОЧНО В ПАСКАЛЕ!!!!! МНОГО БАЛЛОВ ДАЮ!!! 9 КЛАСССС

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

Comments

var a,b,c,fact:longint;beginwriteln('введи факториал числа');readln(a);c:=2;b:=1;fact:=1;  while (b<>a) do begin  b:=b*c;  c:=c+1;  fact:=fact+1;  end; writeln('число, чей факториал =',a,' равно fact = ',fact); end.

---

первая задача, на остальные времени нет, прости

---

спасибо

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.

---

---

---

Comments

И еще, просьба есть. Есть DOS-версия Pascal ABC (именно так, с пробелом), которая не поддерживается с 2004 года. И есть актуальная PascalABC.Net. Пожалуйста, пишите какой Вы пользуетесь, потому что PasacalABC - непонятно, то ли пробела нет, то ли NET потеряли.

---

Alviko, в интернете смог найти только руководства по турбопаскалю. А это решение, вообще посмотрел на форуме паскалистов. Тоже был задан этот вопрос

---

В смысле, вопрос возведения в степень

---

Ну на .NET и суда нет :))) Буду указывать

---

Я понял, я для "трубо паскакаля" писал свою процедуру с обходом капканов отрицательного основания при четных целых степенях и нуле.

---

В .NET все это решено, он выдает NaN и -NaN как аналог плюс и минус бесконечности, но не слетает.

---

Кстати и Nan можно перегрузить на свое собственное сообщение.

---

exp - обратное ln? 

---

да

---

а для степени 10^x другой логарифм, по основанию 10

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.