Question

Начав тренировку лыжник в 1 день пробежал 10 км. Каждый след. день он увеличивал длину пробега на 10% от пробега предыдущего дня. Определить: а)в какойдень он пробежал больше 20 км. б) в какой день суммарный пробег за все дни превысит 100 км? Задача по информатике, надо составить программу в pascal abc. Помогите решить в программе Pascal, с помощью whileребят отзовитесь от этого зависит моя оценка, очень прошу

Answer 1

var
s:real;
flag,d,m:integer;
begin     
      s:=10; d:=1;
          while s<=100 do             
               begin                 
                  writeln('d: ',d,'   s: ',s);  {эта строка не обязательна, выводит на экран ежедневный пробег, как бы для контроля}         
                      s:=s+s*0.1;                   
                      d:=d+1;                       
                            if s<20 then                           
                                  flag:=d;             
                end;
      writeln('> 20 km :', flag+1,'    day');
      writeln('>100 km : ',d);
end.

Answer 2

Конечно, я могу помочь вам составить программу на Pascal ABC для решения данной задачи. Здесь представлена программа, которая решает задачу о пробеге лыжника:

pascalCopy code
program SkiRunner;
var
  day, totalDistance: integer;
  dailyDistance: real;
begin
  day := 1;
  totalDistance := 0;
  dailyDistance := 10.0;  // начальное расстояние в первый день

  // а) Найти, в какой день он пробежал больше 20 км
  while dailyDistance <= 20.0 do
  begin
    dailyDistance := dailyDistance * 1.1;
    day := day + 1;
  end;
  writeln('a) В ', day, ' день лыжник пробежал больше 20 км.');

  // сбросим переменные для следующего вопроса
  day := 1;
  totalDistance := 0;
  dailyDistance := 10.0;

  // б) Найти, в какой день суммарный пробег превысит 100 км
  while totalDistance <= 100.0 do
  begin
    totalDistance := totalDistance + dailyDistance;
    dailyDistance := dailyDistance * 1.1;
    day := day + 1;
  end;
  writeln('б) В ', day, ' день суммарный пробег превысит 100 км.');
end.

Эта программа сначала находит день, в котором лыжник пробежал больше 20 км, а затем находит день, когда суммарный пробег превысит 100 км. Вы можете скомпилировать и выполнить эту программу в среде Pascal ABC.