Найти количество двузначных чисел которые делятся на сумму своих цифр
Ответы на вопрос
Ответил bena1976
0
var i,k,s:integer;
begin
k:=0;
for i:=10 to 99 do
begin
s:=0;
s:=s+i mod 10 +i div 10;
if i mod s=0 then k:=k+1;
writeln('s=',s,' i=',i,' k=',k);
end;
write('k=',k);
end.
Новые вопросы
Английский язык,
2 года назад
Английский язык,
2 года назад
Астрономия,
7 лет назад
Алгебра,
7 лет назад
Математика,
9 лет назад