Program summa_4isel; Uses crt; Var a,e,z,y,x:integer; Begin Writeln('Введите трехзначное число число'); Readln(a); x:=a div 100; y:=(a-x*100) div 10; z:=a-y*10-x*100; e:=x y z; writeln('Сумма чисел ',x,' ',y,' и ',z,' равна ',e,'.'); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
