ИНФОРМАТИКА СРОЧНО! много баллов
ПАСКАЛЬ
НАДО РЕШИТЬ С ПОМОЩЬЮ ОПЕРАТОРА - 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 ?
ПАСКАЛЬ
НАДО РЕШИТЬ С ПОМОЩЬЮ ОПЕРАТОРА - 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 ?
More Questions From This User See All
Answers & Comments
Ответ:
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.