Составить программу ** языке pascal по след. условиям. Вывести с клавиатуры значения...

Question

Составить программу на языке pascal по след. условиям. Вывести с клавиатуры значения переменных a и в, вычислить и вывести на экран значение функции x= (a*b+a)/b

---

Answer 1

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

begin
  var (a,b):=ReadReal2('Введите a,b:');
  var x:=(a*b+a)/b;
  var y:=Sqrt((Exp(a+b)-Exp(a-b))/x)+Log10(x+a);
  Writeln('y=',y)
end.

Пример
Введите a,b: 14.2 3.18
y=1375.95248723222

Comments

А можете проверить мою программу?

---

program o1;
var y,x:real;
a,b:integer;
begin
writeln('введите значeния a,b');
readln(a,b);
x:=(a*b-a)/b;
writeln('x=',x);
y:=Sqrt((Exp(a+b)-Exp(a-b))/x)+Log10(x+a);
writeln('y=', y);
end.

---

почему?

---

А, извините