Предмет: Информатика,
автор: aminakostan77
Найти количество двузначных чисел которые делятся на сумму своих цифр
Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: Экономика,
автор: ulyanakristova24
Предмет: Українська мова,
автор: saschakovtunak
Предмет: Русский язык,
автор: aleksandradeni83
Предмет: Математика,
автор: ОТЛИЧНИЦА16236
Предмет: Алгебра,
автор: Мистер43