profile
Опубликовано - 2 недели назад | По предмету Информатика | автор Аноним

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

  1. Ответ
    Ответ дан Муравьёва Мария

    var
       n, i: integer; // объявляем переменные целочисленного типа.
       sum : real;   // объявляем переменную вещественного типа.
    begin
      writeln(' Введите положительное число:'); // вывод строки.
      readln (n);    // считываем значение числа, введенное с клавиатуры.
      for i:= 1 to n do  // начало цикла.
        begin
            sum:= sum + power(i, 2);  // считаем сумму квадратов на каждом шаге цикла.
        end;
     writeln(' Сумма квадратов натуральных чисел от 1 до ',n ,' равна: ', sum); // вывод строки.
    end.

    0



Топ пользователи