Question

Напишите пожалуйста в Паскале. В первый день спортсмен пробежал X километров. В каждый последующий день он увеличивал пробег на 15% от предыдущего дня. По данному числу Y требуется определить номер дня, в который пробег спортсмена составил не менее Y километров.

Answer 1

program raf105;

var x,y,day:real;

begin

write('Сколько спортсмен пробежал в первый день (X): ');

readln(x);

write('Сколько километров он хочет пробежать за день (Y): ');

readln(y);

day:=1;

while x<y do

begin

 x:= x+x/100*15;

 day:= day+1;

end;

writeln('Спортсмен выполнит цель за ',day,' дн. тренировок');

end.

Программа написана на языке PascalABC

Answer 2

Вот решение вашей задачи на языке Pascal:

sqlCopy code
program SportRunner;

var
  x, y: real;
  day: integer;

begin
  write('Введите количество километров, пройденных в первый день: ');
  readln(x);
  write('Введите желаемое количество километров: ');
  readln(y);

  day := 1;
  while x < y do
  begin
    x := x * 1.15; // увеличиваем пробег на 15%
    day := day + 1;
  end;

  writeln('Спортсмен достигнет желаемого результата на ', day, ' день');
  readln;
end.

Объяснение:

1. Сначала мы объявляем переменные x, y и day, которые будут хранить количество километров, пройденных в первый день, желаемое количество километров и номер дня, соответственно.

2. Затем мы запрашиваем у пользователя значения x и y с помощью функции readln.

3. Далее мы инициализируем переменную day значением 1, так как в первый день спортсмен уже пробежал x километров.

4. Затем мы используем цикл while, чтобы увеличивать пробег на 15% каждый день, пока он не достигнет или превысит значение y.

5. Внутри цикла мы увеличиваем значение x на 15% с помощью выражения x := x * 1.15.

6. Когда цикл завершится, мы выведем номер дня, на котором спортсмен достигнет или превысит значение y.

7. В конце программы мы используем функцию readln, чтобы программа не закрывалась сразу после вывода результата.