Страницы 191-195 параграф 4 4 вопрос / задание 12, ГДЗ по информатике за 8 класс к учебнику Босовой просвещение

Напишите программу, которая вычисляет сумму: а) первых п натуральных чисел; б) квадратов первых п натуральных чисел; в) всех чётных чисел на отрезке от 1 до п; г) всех двузначных чисел.

В одной программе ответ на все пункты.

program Z_12_5;

var

  n, i, s1, s2, s3: integer;

begin

  s1 := 0; s2 := 0; s3 := 0;

  write('n>>');

  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('Сумма первых ',n,' = ', s1);// а)

  writeln('Сумма квадратов первых ',n,' = ', s2);// б)

  writeln('Сумма четных от 1 до ',n,' = ', s3);// в)

  s1 := 0;

  for i := 10 to 99 do

    s1 := s1 + i;

  writeln('Сумма всех двузначных = ', s1)// г)

end.

Окно вывода:

n>>11

а) Сумма первых 11 = 66

б) Сумма квадратов первых 11 = 506

в) Сумма четных от 1 до 11 = 30

г) Сумма всех двоичных = 4905