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

Для решения данной задачи на языке программирования Pascal можно использовать следующий код:

program SumOfMultiplesOfThree;

var
  i, sum: integer;

begin
  sum := 0;
  
  for i := 21 to 99 do
  begin
    if (i mod 3 = 0) then
    begin
      sum := sum + i;
    end;
  end;
  
  writeln('Сумма целых положительных чисел больших 20 и меньших 100, кратных трем: ', sum);
end.

Этот код будет итерироваться по всем целым положительным числам большим 20 и меньшим 100, и если число кратно трем, то добавлять его к сумме. В конце программы будет выведен результат - сумма всех чисел, удовлетворяющих условию.

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

Шаги для решения задачи:

1. Определите диапазон чисел. Нам нужно рассмотреть все числа от 21 до 99, так как числа должны быть больше 20 и меньше 100.

2. Проверка кратности трём. Для каждого числа в этом диапазоне проверим, делится ли оно на три без остатка. Это можно сделать с помощью операции взятия остатка % или mod в Паскале.

3. Вычисление суммы. Если число удовлетворяет условиям (кратно трём), добавляем его к сумме.

Теперь, давайте напишем программу на Pascal:

program SumOfMultiplesOfThree;

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.

Объяснение программы:

• Мы используем цикл for для перебора всех чисел от 21 до 99.
• Внутри цикла проверяем, делится ли текущее число i на три без остатка с помощью i mod 3 = 0.
• Если условие выполняется, добавляем это число к переменной sum.
• После завершения цикла выводим итоговую сумму.

Запуск программы:

1. Скопируйте код в текстовый файл с расширением .pas, например, SumOfMultiplesOfThree.pas.
2. Скомпилируйте программу с помощью компилятора Pascal, такого как Free Pascal.
3. Запустите скомпилированный исполняемый файл, чтобы увидеть результат.

Эта программа правильно вычислит сумму всех чисел, которые соответствуют заданным условиям.