Question

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

Answer 1

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.

Answer 2

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

Конечно, я могу помочь с задачами по Паскалю. Начнем с первой задачи.

Решение задачи 8)

8) Известен факториал числа n. Найти это число.

Факториал числа n обозначается n! и равен произведению всех натуральных чисел от 1 до n.

Например, факториал 5 обозначается как 5! и равен 5*4*3*2*1 = 120.

Для нахождения факториала числа n в Паскале можно воспользоваться следующим кодом:

function Factorial(n: Integer): Integer;
var
  i, result: Integer;
begin
  result := 1;
  for i := 1 to n do
    result := result * i;
  Factorial := result;
end;

В данном коде используется функция `Factorial`, которая принимает целочисленный аргумент `n` и возвращает целочисленное значение - факториал числа `n`.

Решение задачи 15)

15) Начав тренировки, лыжник в первый день пробежал 10км. Каждый следующий день он увеличивал длину пробега на 10% от пробега предыдущего дня. Определить:

а) в какой день он пробежит больше 20 км;

б) в какой день суммарный пробег за все дни превысит 100 км.

Эта задача может быть решена с помощью цикла в Паскале. Ниже приведен пример кода, решающий данную задачу.

program SkiRunner;

var
  distance, totalDistance: Real;
  day: Integer;

begin
  distance := 10; // начальная дистанция
  totalDistance := distance; // итоговая дистанция

// пункт а)
  day := 1;
  while distance <= 20 do
  begin
    distance := distance + (distance * 0.10); // увеличиваем дистанцию на 10%
    day := day + 1;
  end;
  writeln('Лыжник пробежит больше 20 км на ', day, ' день');

// пункт б)
  day := 1;
  while totalDistance <= 100 do
  begin
    distance := distance + (distance * 0.10); // увеличиваем дистанцию на 10%
    totalDistance := totalDistance + distance;
    day := day + 1;
  end;
  writeln('Суммарный пробег превысит 100 км на ', day, ' день');
end.

Решение задачи 26)

26) Дано натуральное число: в) предпоследнюю цифру заменить на 0;

Для замены предпоследней цифры числа в Паскале можно воспользоваться следующим кодом:

function ReplaceSecondToLastDigit(number: Integer): Integer;
var
  strNumber: string;
begin
  strNumber := IntToStr(number);
  if Length(strNumber) >= 2 then
    strNumber[Length(strNumber) - 1] := '0';
  ReplaceSecondToLastDigit := StrToInt(strNumber);
end;

В данном коде используется функция `ReplaceSecondToLastDigit`, которая принимает целочисленный аргумент `number` и возвращает целочисленное значение с замененной предпоследней цифрой на 0.

Надеюсь, это поможет вам с решением задач! Если у вас есть еще вопросы или требуется дополнительная помощь, пожалуйста, дайте знать.