Задать вопрос
14 октября, 00:57

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

+2
Ответы (1)
  1. 14 октября, 02:40
    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 ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы