8.2..Ispis prirodnih brojeva od k do m koji su djeljivi sa c.
Opis programa:
Listing programa:
PROGRAM p08211060;
{Ispisati od k do m djeljive sa c}
USES
WinCrt;
VAR { deklarisanje promjenljivih }
i, k, m, c : INTEGER; { cjelobrojne promjenljive }
BEGIN
WRITELN('ispis neparnih od 1 do m');
WRITE('k ');
READLN(k);
WRITE('m ');
READLN(m);
WRITE('c ');
READLN(c);
i := k; { pocetna vrijednost kontrolne varijable }
WHILE i <= m DO { dok je i <= n ponavljaj - pocetak petlje }
BEGIN
IF i MOD c = 0 THEN { djeljiv sa c? }
Writeln('i = ', i); { ispis kontrolne varjiable }
i := i + 1; { kontrolna varijabla }
END;
END.
Ispis na ekranu:
Index
|
|