Выполнить заданную арифметическую операцию с двумя числами (программа Паскаль)
Вопрос посетителя
Выполнить заданную арифметическую операцию с двумя числами
Ответ эксперта
program z2;
uses crt;
var op:char;
a,b,s:real;
begin
write(‘введи числа ‘); readln(a,b);
write(‘введи знак операции ‘); readln(op);
case op of
‘+’: s:=a+b;
‘-‘: s:=a-b;
‘*’: s:=a*b;
‘/’: s:=a/b;
end;
write(a, op, b,’=’,s);
end