Program n_15; var i: integer; x: real; begin writeln ('график тренировок'); i: =1; x: =10; repeat i: =i+1 x: =x+0.1*x; until x> =25; writeln ('начиная с ', i, '-го дня спортсмен будет пробегать 25 км') end. дополните программу возможностью определить длину пути, который пробежит спортсмен за все найденное выше время тренировок. указание: обозначьте переменную s, опишите ее, добавьте в тело цикла накопление суммы расстояний в эту переменную (строка вида: s: =s+что-то) – подумайте, в какое место тела цикла нужно поставить эту формулу, выведите на экран значение s, округлив его до двух знаков после запятой (s: 3: 2).

Comalia    3   20.05.2019 15:06    38