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).

Var
a,b,c: integer;
x,y,z:string;
begin
x:='рубль';
y:='рубля';
z:='рублей';
writeln('Сколько стоит метр ткани?(в рублях)');
readln(a); writeln('Сколько вы хотите купить ткани?(в метрах квадратных)'); readln(b);
c:=a*b;
if c=1 then
begin
writeln('Это будет стоить',' ',c,' ',x);
end;
if (2<=c) and (c<=4) then
begin
writeln('Это будет стоить',' ',c,' ',y);
end;
if (5 <= c) and(c <= 1000000) then
begin
writeln('Это будет стоить',' ',c,' ',z);
end;
end.

В зависимости от результата программа будет выводить разное окончание.
1 рубль;
3 рубля;
100 рублей.

Program day;
var 
a: array[1..30] of integer; 
b, s, i, min: integer;
begin 
min := 999; 
Randomize; 
for i := 1 to 30 do   begin   
a[i] := random(9, -3);   
s := s + a[i];   
Write(a[i]:3); 
end; 
Writeln; 
Writeln('Ниже нуля '); 
for i := 1 to 30 do   begin    if a[i] > 0 then Write(i,'-го ');   
end;   
if a[i] = 0 then b := b + 1; 
Writeln; 
for i := 1 to 30 do    
if a[i] < min then min := a[i];   
Writeln('Самая низкая температура - ', min); 
Writeln('Средняя температура ноября ', s / 30);
end.