clasa VIII, 21.04-24.04. Tema: Tipuri simple de date. Rezolvarea problemelor.

Problema 1. Scrieti un program care calculeaza aria unui hexagon regulat cu latura A, A-real.

Uses CRT;
Var A,S:Real;
Begin ClrScr; Write('introdu lungimea laturii:'); Read(A);
     S:=3*Sqr(A)*Sqrt(3)/2;
Write('Aria=',S:0:2); ReadKey End.

Problema 2. Scrieti un program care calculeaza suma patratelor dintre ultima si penultima cifra a aunui numar natural.
Uses CRT;
Var N,U,P,S:Integer;
Begin ClrScr; Write('introdu numarul:'); Read(N);
U:=N Mod 10; P:=N Mod 100 Div 10;
     S:=Sqr(U)+Sqr(P);
Write('Suma=',S); ReadKey End.

Problema 3. Scrieti un program care afiseaza la ecran valoarea true, daca printre numerele A,B,C-intregi exista un numar care poate fi reprezentat ca suma la celelalte doua si false-in caz contrar.
Uses CRT;
Var A,B,C:Integer; R:Boolean;
Begin ClrScr; Write('introdu 3 numere:'); Read(A,B,C);
     R:=(A=B+C) Or (B=A+C) Or (C=A+B);
Write(R); ReadKey End.

Problema 4. Scrieti un program care afiseaza la ecran valoarea true, daca  numerele A,B,C-reale reprezinta lungimile laturilor unui triunghi si false-in caz contrar.
Uses CRT;
Var A,B,C:Integer; R:Boolean;
Begin ClrScr; Write('introdu 3 numere:'); Read(A,B,C);
     R:=(A+B>C) And (B+C>A) Ana (A+C>B);
Write(R); ReadKey End.

Problema 5. Scrieti un program care afiseaza la ecran valoarea true, daca  caracterul citit este consoana si false-in caz contrar.
Uses CRT;
Var A:Char; R:Boolean;
Begin ClrScr; Write('introdu un caracter:'); ReadLn(A);
     R:=Upcase(A) in ['A'..'Z']-['A','E','I','O','U'];
Write(R); ReadKey End.