2составить таблицу расхода бензина от 100 км до 200 км через 20 км. (100 км пути - 8,35 литров бензина). результат вывести на экран со всеми пояснениями.
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.
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