Question

Написать программу в паскале: Найти сумму чисел от 100 до 200 кратных 8.

Answer 1

Ответ:

• begin
• (100..200).Where(x->x mod 8 = 0).Sum.Print
• end.

Пример работы:

Answer 2

Вот пример программы на Pascal, которая находит сумму чисел от 100 до 200 (включительно), кратных 8:

pascalCopy code
program SumOfMultiples;
var
  num, sum: integer;
begin
  sum := 0;

  for num := 100 to 200 do
  begin
    if (num mod 8 = 0) then
      sum := sum + num;
  end;

  writeln('Сумма чисел от 100 до 200, кратных 8, равна ', sum);
end.

Программа начинает с 100 и идет до 200 включительно. Для каждого числа проверяется, является ли оно кратным 8 (то есть num mod 8 = 0). Если число кратно 8, оно добавляется к сумме. По завершении цикла выводится сумма чисел, удовлетворяющих условию (кратных 8) в заданном диапазоне.