Циклы for, while

[inoasX]

Требуется написать программу, которая будет получать на входе целые числа A և B будет печатать число цифркоторые делятся на 7 без остатка в диапазоне [A, B]

[Arigato]

Сообщение от inoasX

число цифр

Только две цифры делятся на 7 без отстатка - это цифра 0 и цифра 7.

[newerow1989]

var a,b,i:integer;
begin
   Write('A = '); Readln(a);
   Write('B = '); Readln(b);
   For i:=a to b do
      If i mod 7=0 then
         Writeln(i);
   Readln;
end.

[digitalis]

Не годится. По условию нужно напечатать количество чисел ( а не цифр, как по простоте написал ТС ), делящихся на 7. Так что счётчик придётся прикрутить.
Тщательнее надо

[newerow1989]

var a,b,i,c:integer;
begin
   Write('A = '); Readln(a);
   Write('B = '); Readln(b);
   c:=0;
   For i:=a to b do
      If i mod 7=0 then
         Inc(c);
   Writeln(c);
   Readln;
end.

[ViktorR]

И снова newerow1989 не прав.
В заголовке написано, что нужны циклы for и while.
Да и с чего было принято решение, что это Pascal.
Вот хорошее решение на Python.

def del_7(a):
    '''Проверка делимости на 7
       Возвращает True, если делится
       иначе False'''
    m = a // 10
    ost = a % 10
    while m:
        m = 3 * m + ost
        ost = m % 10
        m = m // 10
    return False if ost - 7 else True

print('Определите диапазон чисел, в котором подсчитываем числа, делящиеся на 7.')
a, b = input('Введите два целых числа: ').split()
a = int(a); b = int(b)
a, b = (min(a, b), max(a, b))
count = 0
for i in range(a, b + 1):
    if del_7(i):
        count += 1
print('Count = ', count) # вывод количества чисел, делящихся на 7
print(del_7(1730736))  # проверка делимости числа

Тут использованы нужные циклы и даже определена функция (бонус к заданию)

PS: Так, сплошной ржачь.
Использован один из признаков делимости числа на 7, см. Вики

[Алексей1153]

мой вариант )

#include <iostream>

int main()
{
    int A=0;
    int B=70;
    
    //if(A%7){A+=(7-A%7);}
    while(A%7)A++;
    
    int counter=0;
    
    //counter=int((B-A)/7+1);
    for(int a=A; a<=B; a+=7){counter++;std::cout<<a<<'\n';}
    
    std::cout<<"counter="<<counter;
    
    return 0;
}

[ViktorR]

Используем вариант Алексей1153.
Найдём делимое не только снизу, но и сверху.
Тогда в версии с for или только while:

print('Определите диапазон чисел, в котором подсчитываем числа, делящиеся на 7.')
a, b = input('Введите два целых числа: ').split()
a = int(a); b = int(b)
a, b = (min(a, b), max(a, b))
while a % 7:
    a += 1
while b % 7:  # Вариант без for
    b -= 1
# for i in range(b, 6, -1):
#     if not (b % 7):
#         break
print((b - a) // 7 + 1)

PS: Хорошее задание. Можно и повыпендриваться

[digitalis]

Хорошо бы ещё на ЛИСП'е или АЛГАМС'е

[Алексей1153]

ViktorR, раз разрешено повыпендриваться, тогда так

#include <iostream>
#include <tuple>

int main()
{
    using namespace std;
    //мне лень писать ввод, да и вводить потом тоже.
    //Поэтому я пользуюсь отладочными константами :D
    const int A_entered=100;
    const int B_entered=13;
    
    constexpr int mod_x=7;
    
    auto [A,B]=tuple{min(A_entered,B_entered),max(A_entered,B_entered)};
    while(A%mod_x)A++;
    while(B%mod_x)B--;
    
    int counter=0;
    for(int a=A; a<=B; a+=mod_x){counter++;cout<<a<<'\n';}
    cout<<"counter="<<counter;
    
    return 0;
}