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

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

Да се напише програма, която чрез цикъл while отпечатва:

  1. всички цели числа от 1 до N
  2. всички положителни четни числа, п0-малки от N
  3. всички числа, кратни на 5, които са п0-малки от N
  4. всички числа, кратни на X, които са п0-малки от N
  5. всички степени на X, които са п0-малки от N
Публикувано в 9а с етикети . Постоянна връзка.

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

  1. Боряна каза:
    28 март, понеделник в 16:30 
    program chisloN;
var
  N, chislo, x, stepen: integer;
begin
  Write('Vavedete N:');
  ReadLn(N);
  chislo:=1;

  WriteLn('Tova sa chislata mejdu 1 i ', N, ':');
  while chislo<N do begin
    WriteLn(chislo);
    chislo:=chislo+1;
  end;

  chislo:=2;  
  WriteLn('Pologitelnite chetni chisla, po-malki ot ', N, ' sa:');
  while chislo<N do begin
    WriteLn(chislo);
    chislo:=chislo+2;
  end;

  chislo:=5;
  WriteLn('Chislata, kratni na 5 i po-malki ot ', N, ' sa:');
  while chislo<N do begin
    WriteLn(chislo);
    chislo:=chislo+5;
  end;

  Write('Vavedete chislo x:');
  ReadLn(x);
  chislo:=x;
  WriteLn('Chislata, kratni na ', x, ' i po-malki ot ', N, ' sa:');
  while chislo<N do begin
    WriteLn(chislo);
    chislo:=chislo+x;
  end;

  stepen:=x;
  WriteLn('Stepenite na ', x, ', po-malki ot ', N, ' sa:');
  while stepen<N do begin
    WriteLn(stepen);
    stepen:=stepen*x;
  end;

  ReadLn;
end.
  2. viktoria каза:
    28 март, понеделник в 16:36 
    program Project1;
var
  N,chislo:integer;
begin
  chislo:=2;
  WriteLn('vavedete N=');
  ReadLn(N);
  while chislo<=N do begin
  WriteLn(chislo);
  chislo:=chislo+2;
  end;
  WriteLn('stiga tolkova');
  ReadLn;
end.
  3. eli каза:
    28 март, понеделник в 16:37 
    var
  N, chislo:integer;
begin
  WriteLn ('vavedete N:');
  ReadLn (N);
  chislo:= 1;
  while chislo <= N do begin
    writeLn (chislo);
    chislo:= chislo+1;
  end;
  WriteLN ('Gotovo!');
 ReadLn;
end.
  4. eli каза:
    28 март, понеделник в 16:37 
    program project5;
var
  chislo, N: integer;
begin
  Write ('vavedete N:');
  ReadLn (N);
  chislo:=2;
  while chislo <=N do begin
    WriteLn (chislo);
    chislo:= chislo + 2;
  end;
  WriteLn ('Gotovo');
  ReadLn;
end.
  5. zornitsa_mirela каза:
    25 април, понеделник в 16:28 
     program Project1;
var // деклариране на променливи
  N,chislo:integer; // променливите N,chislo са цели числа
begin // начало
  chislo:=2; // за chislo присвояваме 2
  WriteLn('vavedete N='); // на екрана се извежда 'vavedete N=' и ни дава възможност да въведем число
  ReadLn(N); // прочита  N на нов ред
  while chislo<=N do begin // докато числото е по-малко от ваведеното от нас N да се прави
  WriteLn(chislo); // на екщрана се извежда числото
  chislo:=chislo+2; // за chislo присвояваме да бъде равно на числото плюс 2
  end; // край
  WriteLn('stiga tolkova'); // на екрана се извежда 'stiga tolkova'
  ReadLn; // прочита нов ред
end. // край

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