HELP PASCAL

Sparco22

prosim vas potrebujem v pascale spravit program ze ked zadam nejake cislo n tak mi spravi sucet vsetkych celych cisel od 1 po n.PLZ HELP

gwixt

to ako vazne

Kód: Vybrať všetko

program sucet;
var i,sucet,n:integer;
begin
  writeln('Zadaj N: '); readln(n);
  sucet:=0;
  for i:=1 to n do sucet:=sucet+i;
  writeln('Sucet: ',sucet);
  readln;
end.

neutronmind

...da sa to aj takto

Kód: Vybrať všetko

program sucet; 
var i,sucet,n:integer; 
begin 
  writeln('Zadaj N: '); readln(n);  
  sucet := (n*(n+1)) div 2;
  writeln('Sucet: ',sucet); 
  readln; 
end.

gwixt

nj .. aritmeticky rad

(idem sa hanbit do kuta)

áno, ideme sa pretekať v šialených riešeniach jednoduchého programu? Tak potom tu ešte chýba rekurzia

Kód: Vybrať všetko

program nieco

function sucet(n:integer):integer;
begin
    if n=0 then result:=0 else result:=n+sucet(n-1);
end;

begin
/*zavolanie programu napr. pre cislo 5*/
  write(sucet(5));
end;

je to len z hlavy, mozno tam bude preklep ale malo by to takto fungovat