Question

Cerința Se dau două numere naturale și un simbol pentru una dintre operațiile +, -, *, / (adunare, scădere, înmulțire, impărțire). Să se determine rezultatul operației aplicate pentru cele două numere. Date de intrare Programul citește de la tastatură numerele A B, iar apoi simbolul operației. Date de ieșire Programul va afișa pe ecran numărul R, reprezentând rezultatul operației. Restricții și precizări atât numerele date cât și rezultatul operației au cel mult 9 cifre; numerele A și B nu sunt neapărat în ordine crescătoare sau descrescătoare; pentru operațiile de scădere și împărțire primul operand va fi numărul mai mare; / reprezintă determinarea câtului împărțirii întregi.

Answer 1

var a,b,n:integer; x:char; R:real;
begin
writeln('Introduceti numerele:');
readln(a,b);
writeln('Introduceti simbolul:');
readln(x);
n:=ord(x);
if n=42 then R:=a*b else
if n=43 then R:=a+b else
if n=45 then 
begin 
if a>b then R:=a-b else R:=b-a;
end;
if n=47 then
begin
if a>b then R:=a/b else R:=b/a;
end;
Writeln(r:0:2);
end.