К readln( добавь f, ибо программа работает нестабильно
Сумма бесконечна так как нет второго предела
Объяснение:
во вложениях..
^ не ставится, но действие выполняется, у себя ставьте!
Program pp;
var a,b:integer;
begin
read(a,b);
if (a>0) and (b>0) then begin
a:=sqr(a);
b:=sqr(b);
end;
if (a<0) and (b<0) then begin
a:=abs(a);
b:=abs(b);
end;
writeln(a,b);
end.
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:= ReadReal('a =');
Writeln('y = ', (a**2+10)/(sqrt(a**2 + 1)));
end.
<u>Пример:</u>
a = 1
y = 7.77817459305202