var n,s,x:integer;
begin
readln(n);
x:=1;
While n>=x do
s:=s+x*x;
x:=x+2;
end;
writeln(s);
end.
Объяснение:
Поделитесь своими знаниями, ответьте на вопрос:
Помагите надо в Паскале сделать
var n,s,x:integer;
begin
readln(n);
x:=1;
While n>=x do
begin
s:=s+x*x;
x:=x+2;
end;
writeln(s);
end.
Объяснение: