Найти все четырехзначные числа, у которых сумма крайних цифр равна сумме средних цифр - QBasic
Формулировка задачи:
Найти все четырехзначные числа, у которых сумма крайних цифр равна сумме средних цифр, а само число делится на 6 и 27. Спасибо.
Решение задачи: «Найти все четырехзначные числа, у которых сумма крайних цифр равна сумме средних цифр»
textual
Листинг программы
k=999 do k=k+1 loop until k mod 54=0 for i=k to 9999 step 54 if i\1000+i mod 10=i\100 mod 10+i\10 mod 10 then print i; next