Pascal - Konsolowe

Liczby mniejsze

Liczby mniejsze
Pascal - Konsolowe

Program: podający liczby mniejsze od wyznaczonej.

Program wyszukuje wszystkie liczby całkowite dodatnie, mniejsze od tej wskazanej przez użytkownika, aż do wartości 1  włącznie.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

Program mniejszeliczby;
uses crt;
var n,i:Word;
begin
     clrscr;
     write('Podaj liczbe naturalna n: ');
     read (n);
     write('Liczby mniejsze to: ');
     for n:=n-1 downto 2 do
     begin
          write (n,', ');
     end;
     write ('1');
     readkey;
end.