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

Публикувано на 09 май, понеделник от Данаил

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

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

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

  1. Боряна каза:
    12 май, четвъртък в 07:44 
    //тази програма правихме двамата със Светли
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 каза:
    12 май, четвъртък в 07:50 
    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. Виктория каза:
    12 май, четвъртък в 07:55 
    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 каза:
    12 май, четвъртък в 07:56 
    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.

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