Составьте программу вычисления суммы всех отрицательных трехзначных чисел, кратных 130 - Pascal ABC

Формулировка задачи:

2. составьте программу вычисления суммы всех отрицательных трехзначных чисел, кратных 130

Решение задачи: «Составьте программу вычисления суммы всех отрицательных трехзначных чисел, кратных 130»

Листинг программы

program pr;
var
  i, sum: integer;
begin
  sum := 0;
  for i := -999 to -100 do
    if i mod 130 = 0 then
    begin
      writeln(i);
      sum := sum + i;
    end;
  writeln('Сумма: ', sum);
end.

Объяснение кода листинга программы

Программа на языке Pascal ABC вычисляет сумму всех отрицательных трехзначных чисел, кратных 130. В программе объявлены две переменные: i и sum. Переменная i является целочисленной и используется для итерации по диапазону от -999 до -100. Переменная sum также является целочисленной и инициализируется значением 0. Для каждого числа в диапазоне от -999 до -100 проверяется, делится ли оно на 130 без остатка. Если это так, то число добавляется к переменной sum, а также выводится на экран с помощью функции writeln. После завершения цикла выводится сообщение с результатом вычислений, которое содержит значение переменной sum.