Задание 13 Параграф 3.5 ГДЗ Босова 8 класс (Информатика)

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

Составим программы для вычисления каждой суммы. Во всех случаях сначала обнуляем переменную $$s$$, затем в цикле последовательно прибавляем нужные слагаемые.

а) program N_13_a;
var
  i, n, s: integer;
begin
  readln(n);
  s := 0;
  for i := 1 to n do
    s := s + i;
  write(‘s=’, s);
end.

б) program N_13_b;
var
  i, n, s: integer;
begin
  readln(n);
  s := 0;
  for i := 1 to n do
    s := s + sqr(i);
  write(‘s=’, s);
end.

в) program N_13_3;
var
  i, n, s: integer;
begin
  readln(n);
  s := 0;
  for i := 1 to n do
    if i mod 2 = 0 then s := s + i;
  write(‘s=’, s);
end.

г) program N_13_4;
var
  i, s: integer;
begin
  s := 0;
  for i := 10 to 99 do
    s := s + i;
  write(‘s=’, s);
end.

Ответ

Программы составлены для всех четырёх пунктов: сумма первых $$n$$ натуральных чисел, сумма квадратов первых $$n$$ натуральных чисел, сумма всех чётных чисел от $$1$$ до $$n$$ и сумма всех двузначных чисел.