Program n1; var sum, n: longint; begin sum:=0; write('введите число: '); readln(n); sum:=n mod 10; while n>10 do n:=n div 10; sum:=sum n; writeln('сумма 1 и последней цифр равна ',sum); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
