Найти сумму натуральных чисел, предшествующих заданному числу а - Pascal ABC
Формулировка задачи:
Найти сумму натуральных чисел, предшествующих заданному числу а. Найти сумму натуральных чисел, предшествующих числу b. Проверить какое из них кратно числу p. Нахождение суммы оформить в виде подпрограммы
Решение задачи: «Найти сумму натуральных чисел, предшествующих заданному числу а»
textual
Листинг программы
program pr;
var
a, b, p, s1, s2: integer;
function summ(const n: integer): integer;
var
i, sum: integer;
begin
sum := 0;
for i := 1 to n do
begin
sum := sum + i;
end;
summ := sum;
end;
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
writeln('Введите р');
readln(p);
s1 := summ(a);
s2 := summ(b);
writeln('Сумма чисел предшествующих ', a, ' : ', s1);
writeln('Сумма чисел предшествующих ', b, ' : ', s2);
if s1 mod p = 0 then
writeln('Сумма чисел ( ',s1,' ) предшествующих ', a, ' кратно ', p);
if s2 mod p = 0 then
writeln('Сумма чисел ( ',s2,' ) предшествующих ', b, ' кратно ', p);
end.
Объяснение кода листинга программы
Программа начинается с объявления переменных a, b, p и s1, s2: integer; Затем следует функция summ(const n: integer), которая использует вложенный цикл for для суммирования чисел от 1 до n. Значение суммы присваивается переменной sum, а затем функции возвращается это значение. Далее идет основной блок программы, который включает чтение значений a, b и p с помощью функции readln. Затем вызываются функции summ(a) и summ(b) для вычисления суммы чисел предшествующих a и b соответственно. Результаты выводятся на экран с помощью функции writeln. Если сумма чисел предшествующих a или b кратна p, то выводится соответствующее сообщение.