Question

Напишите на языке Паскаль программу вычисления по формуле:
$y=frac{(a+b)^{2} }{2a}$
где a,b - целые числа.
ДАЮ 100 БАЛЛОВ, ПОМОГИТЕ ПОЖАЛУЙСТА.

Answer 1

~PascalABC.NET

begin

 var a := ReadInteger2('Введите a и b:');

 write('y = ', (a[0] + a[1])*(a[0] + a[1]) / (2*a[0]));

end.

Answer 2

program formula;

var

a,b:integer;

y:real;

begin

write('Введите а》');

read(a);

write('Введите b》');

read(b);

y:=sqr(a+b)/(2*a);

write('y=',y);

readln;

end.