Programowanie w Pascalu

Question

Mam problem z zadaniem 9 nie ogarniam jak to zrobić. Proszę o pomoc :-) Dziękuje z góry <3

 

https://www.facebook.com/l.php?u=https%3A%2F%2Fdrive.google.com%2Ffile%2Fd%2F0B9RhmUkS3QjHd1h2Zjhnb2VMX2g1REdiTExTRF9TX0xkMndz%2Fview%3Fusp%3Dsharing&h=8AQFAI8hI

Answer 1

Program sumowanie; var suma, n:byte; Begin suma:=0; WriteLn(Podaj wartość nieujemnej liczby naturalnej'); ReadLn(n); IF (n>0) then //Teraz trzeba użyć pętli w której suma będzię wzrastać o "n", a samo "n" będzię dążyło do 0. Polecam tutaj Repeat . . . . UNTIL n=0; WriteLn('Suma wynosi ', suma); ElSE WriteLn('Suma jest równa zero'); ReadLn(); End.

Answer 2

Ewentualnie pętlą while do.

 

program zad9;
uses crt;
var
 n,i,suma: longint;
begin
 clrscr;
 readln(n);
 suma:=0;
 while n > 0 do
 begin
  suma:=suma+n;
  dec(n);
 end;
 writeln(suma);

 readln;
end.

Comments

Pomocą jest rozwiązanie zadania ? ...

---

Ale to jest dobrze bo nie masz użytego i ?

---

widoczniezapomniał, pomyśl trochę.

---

begin
 Write('Wczytaj liczbe n=');readln(n);
 suma:=0;
 while n > 0 do
 begin
  suma:=suma+n;
  n:=n-1;
 end;
 writeln(suma);
 readln;
end.

---

Na górze już wcześniej ktoś objaśnił jak wykonać to zadanie samodzielnie to dlaczego miałbym powtarzać to samo? Dodałem tylko, że można to zrobić również za pomocą innej pętli, a analizując już gotowy algorytm też można się, co nie co, nauczyć.