8.3.01.
Napisati program za ispis prirodnih brojeva od 1 do 5.
Opis rješenja:
Listing programa:
PROGRAM p08311005;
{prvih 5 prirodnih brojeva}
USES
WinCrt;
VAR
i: INTEGER;
BEGIN
WRITELN('1 do 5');
i:=1;
REPEAT
WRITELN('i=',i );
i := i + 1;
UNTIL i>5;
END.
Index
|