8.2.. Izračunati sumu prirodnih brojeva u intervalu od k do n koji nisu djeljivi sa a.
Listing programa:
PROGRAM P08212033;
VAR { deklarisanje promjenljivih }
I, S, K, N, A : INTEGER; { cjelobrojne promjenljive }
BEGIN
Writeln('Suma brojeva koji nisu djeljivi sa a od k do n');
Write('Od broja ');
Readln(K);
Write('Do broja ');
Readln(N);
Write('Djelilac ');
Readln(A);
S := 0; { pocetna vrijednost sume }
I := K; { pocetna vrijednost kontrolne varijable }
WHILE I <= N DO { dok je i <= n ponavljaj - pocetak petlje }
BEGIN
IF I MOD A <> 0 THEN { ako i nije djeljivo sa a tada izvedi }
S := S + I; { suma s postaje stara vrijednost sume uvecana za vrijednost i }
I := I + 1; { slijedeca vrijednost kontrolne varijable i }
END; { kraj while petlje }
Writeln('Suma brojeva koji nisu djeljivi sa a od k do n = ', S);
READLN;
END.
Ispis na ekranu:
Index
|
|