Найдите количество двузначных чисел, которые делятся - вопрос №3151870 от temirhanarmy 11.04.2020 14:34

Question

Информатика: Найдите количество двузначных чисел, которые делятся на сумму своих цифр.pascal abc

temirhanarmy · Answer

Чувак, я не знаю паскаля, в коде могут быть ошибки синтакисиса. По сути так:
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, вроде я не ошибся.