Напишите программу, которая вычисляет сумму первых n натуральных чисел

§ 4.5. Программирование циклических алгоритмов Гдз по информатике 8 класс по учебнику Босова. Базовый уровень. Обновленные ФГОС 2021 год.

12. Напишите программу, которая вычисляет сумму:

а) первых n натуральных чисел;

б) квадратов первых n натуральных чисел;

в) всех чётных чисел на отрезке от 1 до n;

г) всех двузначных чисел.

Ответ

Вот пример программы на языке Паскаль, которая вычисляет указанные суммы:

а) Сумма первых n натуральных чисел:

program SumFirstN;
var
n, i, sum: Integer;
begin
writeln('Введите число n:');
readln(n);

sum := 0;

for i := 1 to n do
begin
sum := sum + i;
end;

writeln('Сумма первых ', n, ' натуральных чисел: ', sum);

readln;
end.

б) Сумма квадратов первых n натуральных чисел:

program SumSquares;
var
n, i, sum: Integer;
begin
writeln('Введите число n:');
readln(n);

sum := 0;

for i := 1 to n do
begin
sum := sum + i*i;
end;

writeln('Сумма квадратов первых ', n, ' натуральных чисел: ', sum);

readln;
end.

в) Сумма всех чётных чисел на отрезке от 1 до n:

program SumTwoDigitNumbers;
var
i, sum: Integer;
begin
sum := 0;

for i := 10 to 99 do
begin
sum := sum + i;
end;

writeln('Сумма всех двузначных чисел: ', sum);

readln;
end.

г) Сумма всех двузначных чисел:

program SumTwoDigitNumbers;
var
i, sum: Integer;
begin
sum := 0;

for i := 10 to 99 do
begin
sum := sum + i;
end;

writeln('Сумма всех двузначных чисел: ', sum);

readln;
end.