Program rasst;
var norma, vsego: real;
den: integer;
begin
norma:=10;
vsego:=10;
den:=2;
while den<8 do begin
norma:=1.1*norma;
vsego:=vsego+norma;
den:=den+1
end;
writeln(Общий пробег=,vsego)
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.