Выполнить над числами операцию соответствующую введенному номеру - Turbo Pascal

Формулировка задачи:

Даны 2 произвольных не нулевых числа.Алгоритмические операции над числами пронумерованы (1-сложение, 2-вычитание, 3-умножение, 4-деление). Выполнив над числами операцию соответствующую введенному номеру.

Решение задачи: «Выполнить над числами операцию соответствующую введенному номеру»

Листинг программы

Var k,A,B : Integer;
Begin
  A:=10; B:=7;
  Readln(k);
  Case k of
  1 : Writeln(A+B);
  2 : Writeln(A-B);
  3 : Writeln(A*B);
  4 : Writeln(A/B:8:4);
  End;
End.

Объяснение кода листинга программы

В данном коде используется язык программирования Turbo Pascal. Он содержит следующие переменные: k, A и B, которые являются целочисленными типами данных. Сначала объявляются переменные A и B и присваиваются им значения 10 и 7 соответственно. Затем считывается значение переменной k с помощью функции Readln. Далее, с помощью оператора Case происходит проверка значения переменной k. В зависимости от значения, выполняется соответствующая операция. Если значение переменной k равно 1, то выводится сумма переменных A и B. Если значение переменной k равно 2, то выводится разность между переменными A и B. Если значение переменной k равно 3, то выводится произведение переменных A и B. Если значение переменной k равно 4, то выводится частное от деления переменной A на переменную B. При этом используется значение 8 для представления результата деления. Таким образом, данный код выполняет операции над числами в соответствии с введенным номером.