Числата от 1 до N

2 Responses to Числата от 1 до N

1. sup3revaa каза:

   28 март, сряда в 18:42

   File: project1.pas

   Влезте, за да отговорите
2. Xboxx_ каза:

   28 март, сряда в 18:55

    program Project1 ;
   Var i : integer ;
   N:integer ;
   begin
   Write ('Vuvedete chislo:') ;
   ReadLn (N);
   for i:=  1 to N do WriteLn (i) ;
   ReadLn ;
   end.
                           

   Влезте, за да отговорите