С помощью while найти сумму чисел из заданного промежутка, кратных 13 и 5. - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

найти сумму чисел из промежутка от А ДО В ,кратных 13 и 5 (А и В вводяться с клавитатуры) написать через операцию while

Решение задачи: «С помощью while найти сумму чисел из заданного промежутка, кратных 13 и 5.»

textual
Листинг программы
var
    a, b, sum: LongInt;
begin
    Write('a='); ReadLn(a);
    Write('b(>=', a, ')='); ReadLn(b);
    sum := 0;
    while (a mod 65 <> 0) do
        Inc(a);
    while (a <= b) do
    begin
        if (a mod 65 = 0)
        then
            Inc(sum, a);
        Inc(a, 65);
    end;
    Write('sum=', sum);
end.

Объяснение кода листинга программы

  1. В начале объявляются переменные a, b и sum типа LongInt.
  2. Затем происходит чтение значений переменных a и b с помощью функции ReadLn.
  3. Переменная sum инициализируется значением 0.
  4. Далее идет цикл while, который выполняется до тех пор, пока значение переменной a не станет кратным 65.
  5. Внутри цикла проверяется условие (a % 65 = 0), если оно истинно, то значение переменной a увеличивается на 1, а значение переменной sum увеличивается на a.
  6. После этого происходит переход к следующему значению переменной a, которое увеличивается на 65.
  7. Если значение переменной a становится больше или равно значению переменной b, то цикл while прекращается.
  8. В конце выводится значение переменной sum с помощью функции Write.

Оцени полезность:

7   голосов , оценка 4 из 5
Похожие ответы