Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.