Var A:integer; Begin Write(Введите четырёхзначное число: );ReadLn(A); WriteLn(S = ,(A div 1000)+(A div 100) mod 10+(A div 10) mod 10+A mod 10); End.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
