Question

Найти значение функции У=Х2+1 для Х=2,3,4,5;...14,15.

Answer 1

var x:integer;
begin;
for x:=2 to 15 do
writeln('y=',x*2+1,' for x=',x);
end.

var x:integer;
begin;
for x:=2 to 15 do
writeln('y=',sqr(x)+1,' for x=',x);
end.

Answer 2

а разве не sqr(x)+1???

Answer 3

Пользователь не указал что это квадрат. Но, на всякий случай, напишу и этот вариант.