Предмет:
ИнформатикаАвтор:
stephensonprogram npow2;
var
n, i, s: integer;
begin
readln(n);
s := 0;
for i := 1 to n do
s := s + i * i;
writeln(s);
end.
Автор:
caseyvpnbДобавить свой ответ
Предмет:
Другие предметыАвтор:
morenoОтветов:
Смотреть
Предмет:
Английский языкАвтор:
mini skirt08rfОтветов:
Смотреть
Предмет:
Русский языкАвтор:
rafael3Ответов:
Смотреть