1) 1,2,1
Так как: ((5*3)-3)*5=60
2) Сместиться на (0;0) - Но не уверен т.к. условие немного некорректное
Ладно смотрите пример во вложении. Проверяйте спрашивайте. Я контроль значения параметра a добавил.
Program lol_kek_4ebyrek;
var x, y:integer;
begin
writeln('Формула: y=x^2');
for x:=1 to 10 do
begin
y:=x*x;
writeln('При x=',x,' y=',y);
end;
end.
Var n,a,b:integer;
function sum(x,y:integer):integer;
var s,i:integer;
begin
s:=0;
for i:=x to y do s:=s+i*i;
sum:=s;
end;
begin
write('n = ');
readln(n);
writeln(n,'^2 + ',n+1,'^2 + ... + ',n+n,'^2 = ',sum(n,n+n));
write('a, b = ');
readln(a,b);
writeln(a,'^2 + ',a+1,'^2 + ... + ',b,'^2 = ',sum(a,b));
end.
Пример:
n = 5
5^2 + 6^2 + ... + 10^2 = 355
a, b = 5 10
5^2 + 6^2 + ... + 10^2 = 355