Temos pavadinimas: WordPress, Shopify ir PHPFusion programuotojų bendruomenė :: Pagalba su Pascaliu

Parašė bruzgis· 2010 Rugs. 26 12:09:57
#2


program grindys;
   var ilgis, plotis, kaina : integer;
       suma : real;
begin
  WriteLn('Ilgis');
  read(ilgis);
  WriteLn('Plotis');
  read(plotis);
  WriteLn('Kaina kv.m');
  read(kaina);
  suma := (ilgis*plotis+ilgis*plotis*0.05)*kaina;
  writeln('Jums kambari isklijuoti kainuos ', suma:4:2, ' litus');
  Readln;
  Readln;
  Readln;
end.