Помагите надо в Паскале сделать ​


Помагите надо в Паскале сделать ​

IamHelp999 IamHelp999    2   17.12.2020 14:30    1

Ответы
JanaVaab JanaVaab  16.01.2021 14:31

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.

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика