Question

помогите, пожалуйста, буду очень благодарна ❤️ (pascal)

Answer 1

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var (x,y):=ReadReal2('Введите два положительных числа:');
  Writeln('Введите код операции');
  var op:=ReadInteger('1- "+", 2- "-", 3- "x", 4- "/":');
  case op of
  1:Writeln(x+y);
  2:Writeln(x-y);
  3:Writeln(x*y);
  4:Writeln(x/y);
  else Writeln('Неверный код')
  end
end.

Пример
Введите два положительных числа: 3.56 1.643
Введите код операции
1- "+", 2- "-", 3- "x", 4- "/": 3
5.84908