Получить сумму m последних цифр числа n - Pascal ABC (14750)

Формулировка задачи:

Здравствуйте, нужна помощь в пару задачах по программированию на Pascal. Нужно написать две программы которые будут выполнять условия ниже. Если есть не равнодушные не проходите мимо помогите в данном вопросе. Задача 1 Даны натуральные числа n, m. Получить сумму m послед- них цифр числа n. Число n вводить как величину типа integer, и строки не использовать. Пример. Пусть n = 12345, m = 3, тогда ответ равен 3 + 4 + 5 = 12. Подсказка. Как получать цифры целого числа, см. учебное пособие В.М. Зюзькова «Программирование», раздел 3.5. Задача 2 Для каждой цифры '0', '1', ... , '9' подсчитать количество вхождений в данную строку S.

Код к задаче: «Получить сумму m последних цифр числа n - Pascal ABC (14750)»

textual
program z1;
var n, m, ans, nmb : integer;
begin
  readln(n, m);
  ans := 0;
  while(m <> 0) do begin
    nmb := n mod 10;
    n := n div 10;
    ans := ans + nmb;
    dec(m);
  end;
  writeln(ans);
end.

9   голосов, оценка 4.111 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы