Даны натуральные числа n и m. Составьте программу, которая вычисляет сумму последних m цифр числа n.

program zz1;

var n, m, s, b:integer; / / задаем переменные целого типа

i:integer;

begin

write (' введите первое заданное число m '); / / вводим с клавиатуры первое число

read (m);

write (' введите второе заданное число n '); / / вводим с клавиатуры второе число

read (n);

for i: = 1 to m do / / организуем цикл на m повторений

begin

b:=n mod 10; / / получаем последнюю цифру числа

s:=s + b; / / прибавляем ее к сумме

n:=n div 10; / / отбрасываем ее из числа

end;

write (' сумма последних m цифр числа n = ', s); / / выводим ответ

end.