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

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

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

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

textual
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.

12   голосов, оценка 3.500 из 5


СОХРАНИТЬ ССЫЛКУ