Зайди в корзину, если надо восстановить программу
Прости, скинуть текстом не смогу т.к. за школным пк делал.
Var
x,y:real;
begin
write('x=');
readln(x);
write('y=');
readln(y);
if (sqr(x)+sqr(y)<=1) then
if (x<0) and (y>0) then
writeln('no')
else
writeln('yes')
else
writeln('no');
end.<span>
</span>
Попробуй создать цикл, в котором К будет увеличиваться на +1, пока не будет больше n, зная формулу суммы арифметической прогрессии. В данном случае она примет вид: ((1+К)/2)*К