Ответы
Ответ дал:
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 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад
9 лет назад