Dze je subor www.TrSek.com/zadania/spotreba.pas{ SPOTREBA.PAS Copyright (c) Pavel Patak }
{ Po zadani ujetych kilometru a spotrebovaných litru paliva vypocte }
{ spotrebu na 100km. }
{ }
{ Datum:28.10.2004 http://www.trsek.com }
Program Spotreba;
Var Km, Litru : Real;
Begin
Write('Zadej pocet ujetych kilometru : ');
Readln(Km);
Write('Nyni udej mnozstvi spotrebovaneho paliva v litrech : ');
Readln(Litru);
Writeln;
Writeln('Spotreba vaseho automobilu cini ',Litru/KM*100:5:2,' l na 100km');
{Pokud nechcete, aby byl vysledek udan v hnusném real-tvaru, pouzijte :
Litru/KM*100:PocetMist:PocetDesetinnýchMíst, tedy :
Writeln('Spotreba vaseho automobilu cini ',Litru/KM*100:5:2,' l na 100km');}
Readln;
End.