Question

Написать программу нахождения суммы чётных чисел, оканчивающихся на 8. от 1 до 100 На паскале

Answer 1

                                          PascalABC.NET

begin

 range(1, 100).Where(x -> x mod 10 = 8).Sum.Print

end.

Answer 2

Вот пример программы на языке Pascal, которая находит сумму чётных чисел, оканчивающихся на 8 в диапазоне от 1 до 100:

pascalCopy code
program SumEvenNumbers;

var
  i, sum: integer;

begin
  sum := 0;

  for i := 1 to 100 do
  begin
    if (i mod 2 = 0) and (i mod 10 = 8) then
      sum := sum + i;
  end;

  writeln('Сумма чётных чисел, оканчивающихся на 8: ', sum);
end.

Программа использует цикл for, который перебирает числа от 1 до 100. Внутри цикла проверяется, является ли число чётным (i mod 2 = 0) и оканчивается ли оно на 8 (i mod 10 = 8). Если оба условия выполняются, то число прибавляется к переменной sum. В конце программы выводится сумма найденных чисел.