[poli-smen]

Сообщение от tim537

Вы можете написать мне код? Просто я даже не знаю как это писать, я ноль в этом

Ну так умножение оно и в Африке умножение, что его писать то?

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  Rasst, Tsena, Rashod, Stoimost: Extended;
begin
  Rasst := 100; // Пройденное расстояние в км
  Tsena := 4.60; // Цена бензина в грн/л
  Rashod := 6; // Расход топлива в л/км

  Stoimost := Rasst * Tsena * Rashod;

  ShowMessageFmt('Стоимость проезда на автомобиле: %f грн', [Stoimost]);
end;