Помогите пожалуйста!!! Паскаль. Найти сумму целых положительных чисел: больших 20, меньших 100, кратных 3 и заканчивающихся на 2/4/8.

Нужно найти все числа, которые удовлетворяют условиям:

• целые и положительные;

• больше 20 и меньше 100;

• кратны 3;

• заканчиваются на 2, 4 или 8.

Можно перебрать все числа от 21 до 99 и проверить каждое условие.

В Паскале это можно сделать так:

pascal
program SummaChisel;
var
  i, s: integer;
begin
  s := 0;
  for i := 21 to 99 do
  begin
    if (i mod 3 = 0) and ((i mod 10 = 2) or (i mod 10 = 4) or (i mod 10 = 8)) then
      s := s + i;
  end;
  writeln('Сумма = ', s);
end.

Пояснение:

• i mod 3 = 0 проверяет, делится ли число на 3 без остатка.

• i mod 10 возвращает последнюю цифру числа.
  Например:

  • 42 mod 10 = 2;

  • 54 mod 10 = 4;

  • 78 mod 10 = 8.

• Если число подходит под оба условия, оно добавляется к переменной s.

Подходящие числа будут:

42, 54, 72, 84

Их сумма:

42 + 54 + 72 + 84 = 252

Ответ программы:

Сумма = 252