ערכתי לאחרונה בתאריך 22.12.03 בשעה 15:08 בברכה, Sag-Net2k2
זה הבסיס אם אתה רוצה תשפר את זה
program calculator;
var
a,b: integer;
c: char;Begin
writeln('Enter 2 numbers: ');
readln(a,b);
writeln('Enter the action: ');
readln(c);
case c of
'+': writeln(a,'+',b,'=',a+b);
'-': writeln(a,'-',b,'=',a-b);
'*': writeln(a,'*',b,'=',a*b);
'/': writeln(a,'/',b,'=',a/b:2:2);
end;
End.