2 Составить таблицу расхода бензина от 100 км до 200 км через 20 км. (100 км пути - 8,35...

Question

2 Составить таблицу расхода бензина от 100 км до 200 км через 20 км. (100 км пути - 8,35 литров бензина). Результат вывести на экран со всеми пояснениями.

Answer 1

Const p=8.35;
var i,n,r,h:integer; b1,b:real;
begin
b1:=p/100;
h:=20;
r:=100-h; b:=p-b1*h;
n:=(200-100) div h;
for i:=0 to n do
 begin
 r:=r+h;
 b:=b+b1*h;
 writeln(r:4,b:6:2);
 end;
end.

Результат:
 100  8.35
 120 10.02
 140 11.69
 160 13.36
 180 15.03
 200 16.70