Регистрация
taisia2305
09.10.2020 08:27
Информатика
Есть ответ 👍

Составить программу для нахождения количества таких трехзначных чисел фибоначчи, которые делятся на сумму своих цифр нацело. программа - pascal abc

148
181
Посмотреть ответы 2

Ответы на вопрос:

элирка3
элирка3
4,4(93 оценок)
Var   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.
denispavlov12
denispavlov12
4,5(3 оценок)
Ну вот я кое что нашла проверила , все правильно вроде )

Популярно: Информатика