Задание 12 Параграф 4.5 ГДЗ Босова 8 класс 2023 (Информатика)
12. Напишите программу, которая вычисляет сумму: а) первых n натуральных чисел; б) квадратов первых п натуральных чисел; в) всех чётных чисел на отрезке от 1 до n;

Ниже вариант решения задания из учебника Босова, Босова 8 класс, Бином:
12. Напишите программу, которая вычисляет сумму:
а) первых n натуральных чисел;
б) квадратов первых п натуральных чисел;
в) всех чётных чисел на отрезке от 1 до n;
г) всех двузначных чисел.
var
n, i, s1, s2, s3: integer;
begin
s1 := 0; s2 := 0; s3 := 0;
write(taskn > > task);
readln(n);
for i := 1 to n do
begin
s1 := s1 + i;
s2 := s2 + sqr(i);
if (i mod 2 = 0) then s3 := s3 + i;
end;
writeln(taskСумма первых task,n,task = task, s1);// а)
writeln(taskСумма квадратов первых task,n,task = task, s2);// б)
writeln(taskСумма четных от 1 до task,n,task = task, s3);// в)
s1 := 0;
for i := 10 to 99 do
s1 := s1 + i;
writeln(taskСумма всех двузначных = task, s1)// г)
end.
Окно вывода
n > > 15
Сумма первых 15 = 120
Сумма квадратов первых 15 = 1240
Сумма четных от 1 до 15 = 56
Сумма всех двузначных = 4905
