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

Да се отпечатат числата от 1 до N
Публикувано в с етикети . Постоянна връзка.

2 коментара по Числата от 1 до N

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

Вашият коментар