Temos pavadinimas: WordPress, Shopify ir PHPFusion programuotojų bendruomenė :: Padėkit išspresti

Parašė ibodom· 2010 Sau. 12 18:01:58
#7

program islaidoss;

    var uzdarbis, islaidos, diena: integer;
   
begin

Writeln ('Uzdarbis:', ' ');

Readln ( uzdarbis );

    for diena := 1 to 8 do
        begin
            WriteLn ( diena,' ', ' dienos islaidos:');
            ReadLn ( islaidos );
            uzdarbis := uzdarbis - islaidos;
        end;

WriteLn ( 'Is uzdarbio liko:', ' ', uzdarbis );
ReadLn;

end.



Redagavo ibodom· 2010 Sau. 12 18:01:06