Программирование Pascal ABC

Question

За один день грузовой автомобиль проезжает по городу N км, а по трассе - Z км. Средний расход топлива по городу составляет 22 литра на 100 км, по трассе 18 литров на 100 км. Определить сколько топлива расходует грузовой автомобиль за рабочую неделю.

user_27493017 · Accepted Answer

Program P1; &#10;var n, w, z: real;  &#10;begin &#10;write ('Введите количество рабочих дней в неделе: '); &#10;readln (w); &#10;if w=0 then write ('За текущую неделю грузовик израсходует 0 литров топлива.') else &#10;if (w<0) or (w>7) then write ('Ошибка: введено некорректное количество рабочих дней.') else begin &#10;   write ('Путь в черте города: (км): '); &#10;   readln (n); &#10;   write ('Путь за пределами городской черты: '); &#10;   readln (z); &#10;   write ('За текущую неделю грузовик израсходует ', w*(n*0.22+z*0.18), ' л. топлива.'); &#10;   end; &#10;end.

sasha_sharkanov · Answer

program FuelConsumption; 
var 
  N, Z: Integer;  { км по городу и по трассе } 
  totalFuel: Real; 
begin 
  { Ввод данных } 
  Write('Введите количество километров по городу (N): '); 
  ReadLn(N); 
  Write('Введите количество километров по трассе (Z): '); 
  ReadLn(Z); 
   
  { Расчет общего расхода топлива за неделю } 
  totalFuel := 5 * ((N * 22) / 100 + (Z * 18) / 100); 
   
  { Вывод результата } 
  WriteLn('Общий расход топлива за неделю: ', totalFuel:0:2, ' литров'); 
end.