Question

DAU CORANA!
Exercitiul 2 a b c d URGENT !!!!

Answer 1

Program P1;       Uses crt;       Var x,y: integer;    Begin    Clrscr;    Writeln('Introduceti doua numere intregi:');    Write('x='); Readln(x);    Write('y='); Readln(y);    x:=x+100;    y:=y+100;    Write('Numerele marite cu 100: ');    Writeln('x=',x,' ','y=',y);    Readkey;    End.    Exemplul2: Se considera trei numere intregi. Sa se scrie un program care calculeaza    media lor aritmetica.    Program P2;       Uses crt;       Var a,b,c,Suma: integer;             media: real;    Begin    ClrScr;    Write('Introduceti trei numere intregi: ');    Readln(a,b,c);    Suma:=a+b+c;    Writeln('Suma numerelor ',a,', ',b,'si ',c,' este: ',Suma);    media:=Suma/3;    Write('Media aritmetica este: ');    Writeln(media:5:2);    Readkey;    End.