var i,m,n,sum,k:Integer; Begin for i:=10 to 99 do begin m:=i mod 10; n:=i div 10; sum:=m n; if (i mod sum = 0) then k:=k 1; end; Writeln(k); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
