Question

ИНФОРМАТИКА СРОЧНО! много баллов ПАСКАЛЬ НАДО РЕШИТЬ С ПОМОЩЬЮ ОПЕРАТОРА - WHILE ЕСТЬ ПЕРВЫЙ ВАРИАНТ РЕШЕНИЯ НАДО НАПИСАТЬ ВТОРОЮ С ПОМОЩЬЮ - WHILE помогите пожалуйста! Задача. Спортсмен приступает к тренировкам по следующему графику: в первый день он должен пробежать 10 км; каждый следующий день следует увеличивать дистанцию на 10% от нормы предыдущего дня. Как только дневная норма достигнет или превысит 25 км, необходимо прекратить её увеличение и далее пробегать ежедневно ровно 25 км. Начиная с какого дня, спортсмен будет пробегать 25 км? Нужно написать второй вариант программы Вариант 1 program sportsmen; var a:integer; x:real; begin writeln('График тренировок'); a:=1; x:=10; repeat a:=a+1; x:=x+0.1*x; until x>=25; writeln ('Начиная с ', a, '–го дня спортсмен будет пробегать 25 км') Вариант 2 ?

Answer 1

Ответ:

program v2;  

var a:integer; x:real;

begin

writeln('График тренировок');

a:=1;

x:=10;

while x<=25 do

begin

a:=a+1;

x:=x+0.1*x

end;

writeln ('Начиная с ', a, '–го дня спортсмен будет пробегать 25 км')

end.

Answer 2

Второй вариант программы можно реализовать с использованием цикла while. Вот как это можно сделать:

pascalCopy code
program sportsmen;

var
  day: integer;
  distance: real;

begin
  writeln('График тренировок');

  day := 1;
  distance := 10;

  while distance < 25 do
  begin
    day := day + 1;
    distance := distance + 0.1 * distance;
  end;

  writeln('Начиная с ', day, '-го дня спортсмен будет пробегать 25 км');
end.

Этот вариант программы использует цикл while, который выполняется до тех пор, пока дистанция не достигнет или не превысит 25 км. Как только это условие выполняется, программа выводит номер дня, начиная с которого спортсмен будет пробегать 25 км.