Pascal
Объяснение:
uses crt;
var a,b,c:real;
d:char;
label m1,m2;
begin
m1:
writeln('Введите 2 числа:');
read(a,b);
m2:
write('Выберите действие + - * /:');
read(d);
if not(d in ['+','-','*','/']) then goto m2;
case d of
'+':writeln(a+b:0:2);
'-':writeln(a-b:0:2);
'*':writeln(a*b:0:2);
'/':if b=0 then writeln('Деление на ноль невозможно')
else writeln(a/b:0:2);
end;
writeln('Продолжить? Y/y-да другое нет');
read(d);
if d in ['y','Y'] then goto m1;
end.
