Решение задач по теме "Оператор выбора Case в Pascal"

Решение задачи №5

program five;
var a,b:real;
    n:integer;
begin
     write('Введите A. A = ');
     readln(a);
     write('Введите B (не равно 0). B = ');
     readln(b);
     writeln('Введите действие: ');
     writeln('1 - сложение');
     writeln('2 - вычитание');
     writeln('3 - умножение');
     writeln('4 - деление');
     readln(n);
     case n of
          1: writeln('A + B = ',a+b);
          2: writeln('A - B = ',a-b);
          3: writeln('A * B = ',a*b);
          4: writeln('A / B = ',a/b);
     end;
end.

Назад