Question

Подсчитать сумму целых чисел диапазона [3;20] кратных 5. паскаль​

Answer 1

Ответ:

program z;

var i,s:integer;

begin

s:=0;

i:=3;

repeat

if i mod 5 = 0 then s:=s+i;

i:=i+1

until i>20;

write(s)

end.

Объяснение:

цикл с постусловием repeat until + неполный условный оператор if then для подсчёта суммы

Answer 2

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

Решение в Pascal:

program SumOfMultiples;
var
  i, sum: integer;
begin
  sum := 0;
  for i := 3 to 20 do
  begin
    if (i mod 5 = 0) then
      sum := sum + i;
  end;
  writeln('Сумма целых чисел диапазона [3;20], кратных 5, равна: ', sum);
end.

Этот код начинается с объявления переменных `i` и `sum` типа `integer`. Переменная `sum` инициализируется нулем. Затем используется цикл `for`, который проходит по числам от 3 до 20. Внутри цикла проверяется, кратно ли текущее число 5 при помощи оператора `mod`. Если число кратно 5, то оно добавляется к сумме. Наконец, выводится сумма всех чисел, кратных 5, в указанном диапазоне.

Это позволит нам узнать сумму целых чисел в диапазоне [3;20], которые кратны 5.