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.