Пожалуйста Составить программу) : Найдите количество двухзначных чисел ,которые ...

July 2022 1 15 Report

Пожалуйста Составить программу) : Найдите количество двухзначных чисел ,которые делятся на сумму своих цифр.

ЧерныйГолубь Program n1;
var
i,k:integer;
begin
k:=0;
for i:=10 to 99 do
if i mod(i div 10 + i mod 10)=0 then k:=k+1;
writeln(k);
end.

0 votes Thanks 0