Найдите количество двузначных чисел, которые делятся на сумму своих цифр.Pascal ABC
Answers & Comments
MouseArt
Чувак, я не знаю паскаля, в коде могут быть ошибки синтакисиса. По сути так: 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, вроде я не ошибся.
Answers & Comments
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, вроде я не ошибся.