clasa VIII. Atentie!!!

1.   Cind aveti de citit valorile pentru mai multe variabile de tipul Char, le cititi pe fiecare in parte, utilizind comanda ReadLn. 

2.    La scriera conditiilor compuse utilizati operatorii logici And sau Or.

Exemple:

1. De la tastatura se citesc 2 caractere. De afisat la ecran true, daca ambele sunt consoane si false in caz contrar.

Uses CRT; Var X,Y:Char; R:Boolean;

Begin ClrScr; 

Write('1 car:'); ReadLn(X);

Write('2 car:'); ReadLn(Y);

R:=( UpCase(X) in ['A'..'Z']-['A','E','I','O','U']) And (UpCase(Y) in ['A'..'Z']-['A','E','I','O','U']);

Write(R); ReadKey

End.

2. De la tastatura se citesc 2 caractere. De afisat la ecran true, daca macar unul este paranteza si false in caz contrar.

Uses CRT; Var X,Y:Char; R:Boolean;

Begin ClrScr; 

Write('1 car:'); ReadLn(X);

Write('2 car:'); ReadLn(Y);

R:=( ) in ['(',')','{','}','[',']']) Or(Y in ['(',')','{','}','[',']']);

Write(R); ReadKey

End.