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

Question

Byud

4 год назад

ОТВЕТЫ

Чеслав

Oct 24, 2020

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.

993