windless-el
?>

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

Информатика

Ответы

andreich97

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.

Объяснение:

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Помагите надо в Паскале сделать ​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Zebra198383
maglevanyycpt
ann328389
larazaytseva
a60ikurgannikova
mbykovskiy
kirill76536
DudukinSerega2507834
kalterbrun
cristiansirbu9974
lihacheva
ЕВ1873
kun1969
xcho1020
balabinatanya7174