Найдите количество двузначных чисел, которые делятся на сумму своих цифр.Pascal ABC
Найдите количество двузначных чисел, которые делятся на сумму своих цифр.Pascal ABC
Гость
Ответ(ы) на вопрос:
ГостьЧувак, я не знаю паскаля, в коде могут быть ошибки синтакисиса. По сути так:
begin
var count : integer;
for var i := 10 to 99 do
if i mod (i mod 10 + i div 10) < 1 then count := count + 1;
end;
Это PascalABC.Net, вроде я не ошибся.
Не нашли ответ?
Похожие вопросы