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*
Комментарий*

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

Yelizaveta1848
Kashtanov Anna
Boldinova-Marianna
kayrina
Bobkov
Захаров-Иванович
samirmajbubi
tatyana58
Maria095096
iivanov54
михаил
Максим_Нина
golovins3
dentob72
ilplakhotin8734