7.1.. Ispisati da li je učitani broj trocifren. Ako nije ispisati NIJE TROCIFREN.
Opis programa: Logički izraz je za provjeru da li je učinatni broj manji od 100 ili veći od 999 (a < 100) OR (a > 999) .
Listing programa:
PROGRAM P07111036;
VAR
a : INTEGER;
BEGIN
Writeln('Broj nije trocifrena');
Write('Broj ');
Readln(a);
IF (a < 100) OR (a > 999) THEN
Writeln('Broj nije trocifren');
READLN;
END.
Ispis na ekranu:
Index
|