Question

C ПОМОЩЬЮ ПАСКАЛЬ ABC.NET петя занялся бегом. он начал с дистанции 12км и поставил цель довести ее до марафонской, увеличивая еженельно на 10% от предыдущей.через сколько месяцев петя пробежит свой первый марафон в 42 км 195м?

Answer 1

begin

 var (n, s) := (1, 12000.0);

 while s < 42195 do

   (n, s) := (n + 1, s * 1.1);

 Println(n * 7 / 30)

end.

В ответе будет 3.5 - это если если считать, что в месяце 30 дней.

Answer 2

Для решения этой задачи можно использовать цикл и накопление переменных.

Программа на PascalABC.NET может выглядеть следующим образом:

pascalCopy code
program Marathon;

var
  distance: Real;
  months: Integer;
  increase: Real;

begin
  distance := 12;  // Начальная дистанция
  increase := 0.1;  // Увеличение дистанции на 10% каждый месяц
  
  months := 0;
  
  while distance < 42.195 do
  begin
    distance := distance + distance * increase;  // Увеличение дистанции
    months := months + 1;  // Увеличение счетчика месяцев
  end;
  
  writeln('Петя пробежит свой первый марафон в ', months, ' месяцев.');
  
end.

В данной программе используется цикл while, который будет выполняться до тех пор, пока дистанция не достигнет или превысит 42.195 км. Внутри цикла дистанция увеличивается на 10% от предыдущего значения, а счетчик месяцев увеличивается на 1.

После завершения цикла программа выводит количество месяцев, через которое Петя пробежит свой первый марафон.

Обратите внимание, что в данном примере я использовал точку в качестве разделителя для вещественных чисел (например, 42.195). В некоторых региональных настройках разделителем может быть запятая, поэтому при необходимости адаптируйте программу под свои требования.