7.3.. Sa tastature se upisuju jedan od brojeva 1, 2, 3, 4. Za očitani broj ispisati tekstualno koji je broj.
Listing programa:
PROGRAM p07311025;
VAR
br: 1..4;
BEGIN
Writeln('Ispisi broj');
Write('Broj (1 4) ');
Readln(br);
CASE br OF
1 : Writeln('Jedan');
2 : Writeln('Dva');
3 : Writeln('Tri');
4 : Writeln('Cetiri');
END;
READLN;
END.
Ispis na ekranu:
Index
|