Отпечатване на числата до това число

Да се напише програма, която позволява да се въвеждат числа до въвеждане на 0 и отпечатва числата от 1 до въведеното число.

Публикувано в СИП с етикети , . Постоянна връзка.

Един коментар по Отпечатване на числата до това число

  1. Lubomir Dizela каза:
    program Project1;
       var
       x, i: integer;
    
    begin
        x:= 1;
        while x<> 0 do
    
      begin
        Write('Vuvedete kraino chislo ');
        ReadLn(x);
        For i:=1 to x do
        Write(i, ' ');
        Writeln;
        Writeln;
      end;
    
      ReadLn;
    
    
    end.         

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