Ввести с клавиатуры знак арифметической операции (либо+ либо - либо * либо /(деление)и...

Question

Ввести с клавиатуры знак арифметической операции (либо+ либо - либо * либо /(деление)и .два числа. Вывести на экран результат. При вводе знака операции # выход из программы.6

Answer 1

uses crt;

var a,b,s:real; z:char;
begin
write('Vvedite A = ');
readln(a);
write(' + - / * : ' );
readln(z);
write('Vvedite B = ');
readln(b);
case z of
'+': begin s:=a+b; writeln(a,' + ',b,' = ',s); end;
'-': begin s:=a-b; writeln(a,' - ',b,' = ',s); end;
'*': begin s:=a*b; writeln(a,' * ',b,' = ',s); end;
'/': begin s:=a/b; writeln(a,' / ',b,' = ',s); end;
else
writeln('error: incorrect operation symbol!!!');
end;
readln;
end.