Составить программу для нахождения количества таких трехзначных чисел Фибоначчи, которые делятся на сумму своих цифр нацело. Программа - Pascal ABC
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
a,b,k,s: integer;
begin
k := 0;
a := 1;
b := 1;
while b < 1000 do
begin
if b >= 100 then
begin
s := b div 100 + b div 10 mod 10 + b mod 10;
if b mod s = 0 then
k := k + 1
end;
b := a + b;
a := b - a;
end;
write(k)
end.