m,n,s,i integer;
s:=0;
i:=0;
readln(m,n);
while (n>0)and(i<m) do
begin
s:=s+(n mod 10);
n:=n div 10;
inc(i);
end;
writeln(s);
Получить сумму m последних цифр числа n(Pascal)
Вот и задачки
1) Даны натуральные числа m и n. Получить сумму m последних цифр числа n.
как я понял, мы вводим m и n, где m - это число последних цифр введеного n, т.е. вводим m=2, n=155, значит последних, судя по m, 2 числа от n(155) нужно сложить
[color=red]Читать правила. Модератор.[/color]
1) Даны натуральные числа m и n. Получить сумму m последних цифр числа n.
как я понял, мы вводим m и n, где m - это число последних цифр введеного n, т.е. вводим m=2, n=155, значит последних, судя по m, 2 числа от n(155) нужно сложить
[color=red]Читать правила. Модератор.[/color]
последнюю цифру десятичного числа можно получить как остаток от деления на 10. Делишь так, и складываешь эти остатки до тех пор, пока счетчик не будет равен m.
Код:
Spasibo!!!:)