[Turbo Pascal] Wypisz liczby, oblicz sumę

[Myszka0707]

Wypisz liczby od \(\displaystyle{ 5}\) do \(\displaystyle{ 20}\) ,oblicz ich sumę i podaj wartości

[szw1710]

Istotny fragment programu:

Kod: Zaznacz cały

s:=0;
for i:=5 to 20 do
  begin
    writeln(i);
    s:=s+i
  end;
writeln(s);

Sumę obliczamy sekwencyjnie, tak jak w rzeczywistości: \(\displaystyle{ 5+6=11,\; 11+7=18}\) itd. Stąd na początku podstawiamy za wartość sumy zero i kolejno w pętli zwiększamy ją o kolejne składniki. Jednocześnie wypisujemy je na ekranie. Na końcu wypisujemy także obliczoną sumę.

[Myszka0707]

dzięki uratowałeś mnie wielki szasun