Задачи по Pascal. Найти сумму целых чисел от A до B, которые делятся на пять.

Условие задачи: Даны два целых числа A,B (A<B). Найти сумму целых чисел от A до B,которые делятся на пять. (Язык Pascal)

Сложность: легкая.

Решение задачи

Для начала продумаем наше решение. Мы введем два числа, проверим их на условие (A < B), потом сделаем цикл от A до B и в нем будем проверять каждое число, делится ли оно на 5, если да, то увеличим сумму.

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

  • Переменная A — для первого числа
  • Переменная B — для второго числа
  • Переменная i — для цикла for
  • Переменная sum — для суммы
  • Начнем мы с каркаса нашей программы

    var

    A, B, i, sum :
    integer
    ;
    begin

    write
    (
    'Введите A : '
    );readln(A);

    write
    (
    'Введите B : '
    );readln(B);
    end
    .

    Тут мы объявили все переменные и попросили пользователя ввести числа A и B. Дальше нам надо проверить условие (A < B), пишем:

    if
    (A > B)
    then

    begin

    writeln
    (
    'Нужно ввести А меньше чем В '
    );

    halt;

    end
    ;

    Т.е. если (A > B), то мы просто выходим из программы, с помощью процедуры halt.

    Ну а теперь цикл, в нем мы проверим делится ли каждое число на 5 с помощью операции mod, которая ищет остаток от деления, подробнее ( тут ).

    for
    i:=A
    to
    B
    do

    begin

    if
    (i
    mod
    5
    =
    0
    )
    then

    sum := sum + i;

    end
    ;

    Вот и всё. Каждое число которое делится на пять прибавляем к общей сумме.

    Всё решение задачи Pascal

    var

    A, B, i, sum :
    integer
    ;
    // объявляем переменные
    begin

    write
    (
    'Введите A : '
    );readln(A);
    // вводим А

    write
    (
    'Введите B : '
    );readln(B);
    // вводим В

    sum :=
    0
    ;
    // обнуляем сумму чтобы не было ошибок

    if
    (A > B)
    then
    // если A > B

    begin

    writeln
    (
    'Нужно ввести А меньше чем В '
    );
    // выводим сообщение

    halt;
    // выходим из программы

    end
    ;

    for
    i:=A
    to
    B
    do
    // делаем цикл

    begin

    if
    (i
    mod
    5
    =
    0
    )
    then
    // если число делится нацело на 5

    sum := sum + i;
    // то увеличиваем сумму на это число

    end
    ;

    writeln
    (
    'Сумма чисел от '
    , A,
    ' до '
    , B ,
    ' равна : '
    , sum);
    // выводим результат

    readln;
    // чтобы программа не закрывалась
    end
    .
    Предыдущая
    ПрограммированиеЗадачи по Pascal. Определить, равна ли сумма двух первых цифр заданного четырехзначного числа сумме двух его последних цифр.
    Следующая
    ПрограммированиеЗадачи по Pascal. Найти произведение цифр заданного четырехзначного числа.
    Помогли? Поставьте оценку, пожалуйста.
    Плохо
    0
    Хорошо
    0
    Супер
    0
    Спринт-Олимпик.ру
    Мы в ВК, подпишись на нас!

    Подпишись на нашу группу в ВКонтакте, чтобы быть в курсе выхода нового материала...

    Вступить
    ×