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

Информатика 8 класс Босова ФГОС

§ 3.5. Программирование циклических алгоритмов ГДЗ по Информатике 8 Класс


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

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

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

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

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

Ответ

а) Цикл будет выполнен 16 раз (от 0 до 15 включительно).
б) Цикл будет выполнен 6 раз (от 10 до 15 включительно).
в) Цикл будет выполнен 3 раза (от -1 до 1 включительно).
г) Цикл будет выполнен 1 раз, так как начальное и конечное значения переменной i равны 10 и цикл выполняется только при выполнении условия i <= 10.
д) Цикл будет выполнен 3 раза (от 4 до 6 включительно), так как значения переменной i будут равны 4, 5 и 6 при итерации цикла.

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

begin
    write(‘n = ‘);
    readln(n);
    s1 := 0;
    s2 := 0;
    s3 := 0;
    s4 := 0;
    
    for i := 1 to n do
    begin
        s1 := s1 + i;
        s2 := s2 + sqr(i);
        if i mod 2 = 0 then s3 := s3 + i;
    end;
    
    for i := 10 to 99 do s4 := s4 + i;
    
    writeln(‘Сумма первых n натуральных чисел: ‘, s1);
    writeln(‘Сумма квадратов первых n натуральных чисел: ‘, s2);
    writeln(‘Сумма всех четных чисел: ‘, s3);
    writeln(‘Сумма всех двухзначных чисел: ‘, s4);
end.