8.3.. Izračunati i ispisati sumu prirodnih brojeva od k do n. Koristiti REPEAT petlju.
Opis rješenja: Početna vrijednost sume s (0). Vrijednosti varijable i se mijenja od k do n. Formiranje sume se izvodi unutar petlje. Izraz s:=s+i.
Listing programa:
PROGRAM p08312002;
{suma prirodnih brojeva od k do n}
USES
WinCrt;
VAR
i, n, k, s : INTEGER;
BEGIN
WRITE('Od broja ');
READLN( k );
WRITE('Do broja ');
READLN( n );
s := 0;
i := k;
REPEAT
s := s + i;
i := i + 1;
UNTIL i>n;
WRITELN('od ', k, ' do ', n, ' suma je ', s );
END.
Index
|
|