Составьте программу которая подсчитывает количество и стоимость затрачиваемого бензина **...

Question

Составьте программу которая подсчитывает количество и стоимость затрачиваемого бензина на путь.
Pascal ABC

Answer 1

Uses crt;const benz=37.10;var km,summ:real;beginwriteln('Введите km');readln(km);summ:= benz*km;clrscr;writeln('***************');writeln('***  Цена   ***');writeln('***************');writeln('* Бензин | КМ *');writeln('*  ',benz,'  | ',km,' *');writeln('***************');writeln('**** Сумма ****');writeln('***************');writeln('* ',summ,'  рублей *');writeln('***************');end.

Comments

uses crt;
const benz=37.10;
var
km,summ:real;
begin
writeln('Введите km');
readln(km);
summ:= benz*km;
clrscr;
writeln('***************');
writeln('*** Цена ***');
writeln('***************');
writeln('* Бензин | КМ *');
writeln('* ',benz,' | ',km,' *');
writeln('***************');
writeln('**** Сумма ****');
writeln('***************');
writeln('* ',summ,' рублей *');
writeln('***************');
end.