Вводится натуральное число. Найти сумму квадратов всех натуральных чисел от 1 до этого числа.
Ответы на вопрос
Ответил annmainer
0
VAR
n, sum, i : LongInt;
BEGIN
Read(n);
For i := 1 to n do
sum := sum + Sqr(i);
Write(sum);
END.
n, sum, i : LongInt;
BEGIN
Read(n);
For i := 1 to n do
sum := sum + Sqr(i);
Write(sum);
END.
Ответил blikkk
0
Окей, а какие переменные вводить?
Ответил blikkk
0
А, стоп, не ту задачу смотрю. Сча проверю в проге)
Ответил blikkk
0
Сошлось. благодарю)
Ответил annmainer
0
всегда пожалуйста ;)
Ответил blikkk
0
С радостью сделала бы ваш ответ лучшим, но не знаю, куда тыкнуть)
Новые вопросы
Обществознание,
2 года назад
Информатика,
2 года назад
История,
8 лет назад
Математика,
8 лет назад
Математика,
9 лет назад