Напишите программу Паскаль. Найти сумму первых n в квадрате чисел
Ответы на вопрос
Ответил BobbyFresnel
0
===== PascalABC.NET =====
begin
SeqGen(ReadInteger('N ='), n -> n * n, 1).Sum.Print
end.
Приложения:
Ответил BobbyFresnel
0
Отлично, общайтесь дальше.
Ответил Karakulina
0
Приятно было пообщаться, но ждут дела. Хорошего вечера!
Ответил BobbyFresnel
0
А вот хорошего вечера - почему не пожелать?
Ответил Karakulina
0
Прикрепляю код программы в файле.
program brainly;
var
n, i :integer;
summ :real;
begin
Write('Введите n: ');
ReadLn(n);
for i := 1 to n do
summ += power(i, 2);
Write('Сумма квадратов первых ', n, ' чисел равна: ', summ);
end.
Приложения:
Новые вопросы
Английский язык,
1 год назад
Українська мова,
1 год назад
Геометрия,
7 лет назад
Математика,
7 лет назад