8.2.01. Napisati program za ispis prirodnih brojeva od 1 do 5.
Opis rješenja:
Listing programa:
PROGRAM p08211005;
{prvih 5 prirodnih brojeva}
USES
WinCrt;
VAR
i: Integer;
BEGIN
i := 1;
WHILE i <= 5 DO
BEGIN
Writeln('i = ', i);
i := i + 1;
END;
END.
Index
|