[Turbo Pascal] Suma 20 kolejnych liczb

[klasa1dzseil]

Napisz program który oblicza sumę 20 kolejnych liczb od podanej od użytkownika dodatniej wartości funkcji wywołanej tak długo aż zostanie podane zero albo liczba ujemna.

[bartek118]

W pseudojęzyku byłoby coś takiego:

Kod: Zaznacz cały

x <- 1;
while x>0 do
begin
wczytaj(x);
wynik <- 10*x*(x+19);
wypisz(wynik);
end

[aniu_ta]

Kod: Zaznacz cały

clrscr;
repeat
  write('Podaj liczbe: ');
  readln(n);
  if n>0 then
    begin
      for i:=n to n+19 do S:=S+i;
      writeln('Suma 20 kolejnych liczb od ',n,' do ',n+19,' wynosi: ',S);
      readln;
    end;
until n<=0

to jest sam program główny, do tego musisz dopisać jeszcze deklarację zmiennych itp. na początku.

[ksisquare]

for i:=n to n+19 do S:=S+i;

Gaus się w grobie przewraca