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

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

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

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

  1. Боряна каза:
    //тази програма правихме двамата със Светли
    program chisla;
    var
      chislo, i: integer;
    begin
      WriteLn('Vavegdaite chisla:');
      repeat
        ReadLn(chislo);
        if chislo<>0 then begin
        Write('Chislata ot 1 do ', chislo, ' sa: ');
        for i:=1 to chislo do
        Write(i, ' ');
        WriteLn;
        WriteLn('Vavedete drugo chislo:');
        end;
      until chislo=0;
      WriteLn('Vie vavedohte 0. KRAI!');
      ReadLn;
    end. 
    
  2. eli каза:
    program Project1;
    var
     chislo,i:integer;
    begin
    ReadLn(chislo);
    for i:=1 to chislo do
    WriteLn('chislata sa: ',i);
    ReadLn;
    end.  
    

    ot Eli i Viki Cv.

  3. Виктория каза:
    program Project1;
    var
      chislo, i: integer;
    begin
      Writeln('Vavedete chisla: ');
      repeat
        Readln(chislo);
        for i:=1 to chislo do
        WriteLn(i);
        WriteLn;
      until chislo=0;
      if chislo=0 then
        Writeln('Dostatachno!');
      Readln;
    
    end.   
    
  4. Alya каза:
    program Project1;
    var
      chislo, i: integer;
    begin
      Writeln('Vavedete chisla: ');
      repeat
        Readln(chislo);
        for i:=1 to chislo do
        WriteLn(i);
        WriteLn;
      until chislo=0;
      if chislo=0 then
        Writeln('Dostatachno!');
      Readln;
    
    end.   
    

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