8.1.. Izračunati sumu prirodnih brojeva u intervalu od k do m koji su djeljivi sa a.
Opis rješenja:
Opis programa:
Listing programa:
PROGRAM p08111068;
{suma prirodnih brojeva od 1 do m djeljivih sa a}
VAR { deklarisanje promjenljivih }
i, k, m, a, s : INTEGER; { cjelobrojne promjenljive }
BEGIN
WRITELN('suma od k do m djeljivih sa a');
Write('k');
Readln(k);
Write('m');
Readln(m);
Write('a');
Readln(a);
s := 0;
FOR i:=k TO m DO { ponavljaj za i=k do m - pocetak petlje }
IF i MOD a = 0 THEN { paran? }
s := s + i; { paran, kumulativna suma }
WRITELN ('suma = ', s); { ispis u petlji }
READLN;
END.
Ispis na ekranu:
Index
|
|