Напишите на языке Паскаль программу вычисления по формуле:
![y=frac{(a+b)^{2} }{2a} y=frac{(a+b)^{2} }{2a}](https://tex.z-dn.net/?f=y%3Dfrac%7B%28a%2Bb%29%5E%7B2%7D+%7D%7B2a%7D)
где a,b - целые числа.
ДАЮ 100 БАЛЛОВ, ПОМОГИТЕ ПОЖАЛУЙСТА.
Ответы
Ответ дал:
0
~PascalABC.NET
begin
var a := ReadInteger2('Введите a и b:');
write('y = ', (a[0] + a[1])*(a[0] + a[1]) / (2*a[0]));
end.
Ответ дал:
0
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.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад