Составить программу вычисления суммы квадратов чисел от 1 до n
10-11 класс
|
переменная s сумма n последний член
procedure proc(s,n: integer);
begin
s:=s+sqr(n);
if n>0 then proc(s,n-1) else
writeln(' s= ', s:3)
Другие вопросы из категории
Составить программу расчёта числа загонов (шт.) на пастбище по формуле:
Читайте также
1) Определить количество двухзначных чисел, сумма цифр которых равна числу N.
2) Составить таблицу для двух столбцов выражения y=x²+3. Ввод чисел через клавиатуру.
3) Составить программу вычисления суммы кубов чисел от 1 до 5.
4) Вычислить сумму части ряда, 1/3, 1/6, 1/9, 1/12....
5) Среди двухзначных чисел, найти те, сумма цифр которых делятся на 3.
6) Найти самую большую цифру:
а) в двухзначном числе
б) трехзначном числе.
2)Написать программу определяющую сумму всех нечетных чисел от 1 до 99
2)Составьте программу которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150
3)Дано вещественное число А и целое число N(>0).Испульзуя один цикл вывести все целые степени числа А от 1 до N
------------------------ОПЕРАТОР WHILE