Question

Синформатикой, . мы проходим программирование циклов на паскале и нужно решить . спортсмен в первый день пробежал 3 км, а в каждый последующий день увеличивал дистанцию на 200 м. сколько пробежал спортсмен: а) в 15 день б) за 15 дней

Answer 1

 var a:real;
 i:integer;
begin a:=10;
for i:=1 to 7 do begin
a:=a+(a*0.1);
end;
write(a,' ');
end.

Answer 2

Var  
   day,                      //номер дня 
   day_dist,              //дистанция пройденная в этот день в метрах 
   sum_dist :integer;//дистанция пройденная за все дни 
Begin 
   day_dist:=3000;   //за первый день пробежал 3000 м. 
   sum_dist:=3000;  //общая дистанция тоже 3000 м. 

//Найти ответ можно тремя
//Вариант 1. цикл for
{
   for day:=2 to 15 do begin      //считаем со 2 по 15 день   
      day_dist:= day_dist + 200;//дневная дистанция увеличивается на 200 м. 
      sum_dist:= sum_dist + day_dist;//общая дистанция увеличивается на 
                                                            дистанцию пройденную за день 
   end; 
} 

//Вариант 2. цикл while  
{ 
   day:=1;                                              //первый день посчитан 
   while day < 15 do begin                  //пока не настал 15 день считаем   
      day := day +1;                                //увеличиваем номер дня   
      day_dist:= day_dist + 200;           //увеличиваем дневную дистанцию   
      sum_dist:= sum_dist + day_dist; //увеличиваем общую дистанцию 
   end; 
} 
//Вариант 3. цикл repeat until  
{ 
   day:=1;                                               //первый день посчитан 
   repeat                                              //начинаем считать следующие   
      day := day +1;                                //увеличиваем номер дня   
      day_dist:= day_dist + 200;          //увеличиваем дневную дистанцию   
      sum_dist:= sum_dist + day_dist; //увеличиваем общую дистанцию 
   until day = 15;                                   //если настал 15 день перестаем считать 
} 
   writeln('В 15 день пройдено ', day_dist,'метров.');  //вывод результатов
   writeln('За 15 дней пройдено ', sum_dist,'метров.');
end.