Elaboreaza un program in pascal care calculeaza doua cifre)) varog mult dau coroana...
Răspunsuri la întrebare
program BrainlyHelper;
var a,b:integer;
semn:char;
produs,suma,diferenta:integer;
cat:real;
begin
writeln ('Dati cele 2 numere:');
readln(a,b);
writeln('Introduceti semnul operatiei:');
readln(semn);
produs:=0;
suma:=0;
diferenta:=0;
cat:=0;
if (semn='*') or (semn='x') then begin
produs:=a*b; writeln(a,'*',b,'=',produs);
end;
if semn='+' then begin
suma:=a+b; writeln(a,'+',b,'=',suma);
end;
if semn='-' then begin
diferenta:=a-b; writeln(a,'-',b,'=',diferenta);
diferenta:=b-a; writeln(b,'-',a,'=',diferenta);
end;
if (semn='/') AND (b<>0) then begin
cat:=a/b;
writeln(a,'/',b,'=',cat:2:2);
end
else if (semn='/') AND (b=0) then begin
writeln(a,'/',b,'=Impartire la 0 nu exista');
end;
if (semn='/') AND (a<>0) then begin
cat:=b/a;
writeln(b,'/',a,'=',cat:2:2);
end
else if (semn='/') AND (a=0) then begin
writeln(b,'/',a,'=Impartire la 0 nu exista');
end;
end.