Начав тренировку лыжник в 1 день пробежал 10 км. Каждый след. день он увеличивал длину пробега на 10% от пробега предыдущего дня. Определить: а)в какойдень он пробежал больше 20 км. б) в какой день суммарный пробег за все дни превысит 100 км? Задача по информатике, надо составить программу в pascal abc. Помогите решить в программе Pascal, с помощью whileребят отзовитесь от этого зависит моя оценка, очень прошу
Ответы
Ответ дал:
2
var
s:real;
flag,d,m:integer;
begin
s:=10; d:=1;
while s<=100 do
begin
writeln('d: ',d,' s: ',s); {эта строка не обязательна, выводит на экран ежедневный пробег, как бы для контроля}
s:=s+s*0.1;
d:=d+1;
if s<20 then
flag:=d;
end;
writeln('> 20 km :', flag+1,' day');
writeln('>100 km : ',d);
end.
Вас заинтересует
11 месяцев назад
1 год назад
6 лет назад
6 лет назад