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

Публикувано на 03 април, вторник от Данаил

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

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

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

  1. Lubomir Dizela каза:
    18 април, сряда в 18:55 
    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.

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