1 день - 10км
2 день - 10км+(10*10)/100=11км
10+11=21км, следовательно во второй день
суммарный пробег 114,358881 (что превышает 100) на 8 день
Пишу на QBasic
Нам уже дан заполненный массив
FOR I = (кол-во элементов массива) TO 1 STEP -1
IF A(I)<0 THEN
PRINT I
END
END IF
Var x,y,b:real;
begin
b:=6;
while b>=5 do
begin
writeln('Введите параметр b (b<5): ');
readln(b);
end;
x:=b;
writeln('x':2,'y':6);
repeat y:=cos(x)*Pi/x;
writeln(x:3:1,' ',y);
x:=x+0.1;
until x>5;
<span>end.</span>
Вот у меня осталось с позапрошлого года ещё