Question

Найти сумму целых положительных чисел больших 20 меньших 100 и кратных трем. пожалуйста срочно это на паскале решать надо

Answer 1

Var
  i, sum : Integer;
begin
  for i := 20 to 100 do
  begin
    if ((i mod 3) = 0) then
    begin
      sum := sum + i;
    end;
  end;
  writeln(sum);
end.

Answer 2

Конечно, вот пример программы на Pascal, которая находит сумму целых положительных чисел, больших 20 и меньших 100, кратных трём:

program SumOfMultiples;
var
  i, sum: integer;
begin
  sum := 0;

for i := 21 to 99 do
  begin
    if (i mod 3 = 0) then
      sum := sum + i;
  end;

writeln('Сумма целых положительных чисел, больших 20 и меньших 100, кратных трём: ', sum);
end.

Давайте разберем код:

1. `var i, sum: integer;` - объявляем переменные `i` для цикла и `sum` для хранения суммы.

2. `sum := 0;` - инициализируем сумму нулем.

3. `for i := 21 to 99 do` - начинаем цикл от 21 до 99.

4. `if (i mod 3 = 0) then` - проверяем, кратно ли текущее число `i` трём.

5. `sum := sum + i;` - если число кратно трём, добавляем его к сумме.

6. `writeln('Сумма целых положительных чисел, больших 20 и меньших 100, кратных трём: ', sum);` - выводим сумму.

Программа находит и выводит сумму целых положительных чисел, которые больше 20, меньше 100 и кратны трём.