Приветствую Вас, дорогих читатели блога ZedPost.Ru, а также тех, кто хочет научиться языку программирования Паскаль. Сегодня, 29 июля, я выкладываю пример программы Паскаль, которая вычисляет сумму кубов чисел от 25 до 125. Программа по теме: "Циклы. Цикл с параметром - FOR".
Данная задача Паскаль относится к элементарным тематическим задачам, поэтому объяснять я не вижу смысла, тем более, что в программе есть подробные пояснительные комментарии.
Исходный код программы Pascal:
var sum:longint; //Описание переменных
i:integer;
Begin //Начало программы
sum:=0; //Зануление суммы
for i:=25 to 125 do {Цикл с параметром (от 25 до 125, если нужны другие рамки чисел, то просто поменяйте значения в этой строке)}
sum:=sum+(i*i*i); //Сумма куба данного числа с суммой предыдущих
writeln ('Сумма кубов:', sum); //Вывод суммы кубов
End. //Конец программыСкачать программу: pas4for.pas
P.S. У данной программы может быть и другая формулировка: Составить программу вычисления суммы кубов чисел от 25 до 55. В таком случае просто замените параметр цикла FOR/ Вместо 125 напишите 55. Возможны и другие значения.