Задать вопрос
28 июля, 16:48

Составите программу; которая вычисляет сумму квадратов всех натуральных чисел от 1 до 500

+4
Ответы (1)
  1. 28 июля, 19:54
    0
    Function SumSqr (N : Longint) : Longint;

    Begin

    If N>0 then SumSqr:=N*N+SumSqr (N-1) else SumSqr:=0;

    end;

    Begin

    Writeln (SumSqr (500)) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Составите программу; которая вычисляет сумму квадратов всех натуральных чисел от 1 до 500 ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы