Pascal - Konsolowe

Ciąg liczb

Ciąg liczb
Pascal - Konsolowe

Program: tworzący ciąg liczb począwszy od 1.

Użytkownik podaje ilość liczb do wypisania przez program.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program jedynki;
uses crt;
var i,n,potega,suma:longint;
begin
         clrscr;
         writeln('Podaj a');
         readln(n);
         potega:=1;
         for i:=1 to n do
         begin
         suma:=suma+potega;
         potega:=potega*10+1;
         end;
         writeln('Suma= ',suma);
         readln;
end.