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

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


textual

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

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



Похожие ответы
  1. Вычислить сумму ряда

  1. Найти сумму целых положительных чисел из промежутка от А до B, кратных 4.(значения А и В вводятся с клавиатуры)

  1. 34. Найти сумму положительных целых чисел, меньших 100

  1. Дано числовую последовательность (100, 97, 94, ...). Найти сумму 30-ти членов последовательности чисел

  1. Определить и вывести сумму элементов, значения которых находятся в диапазоне от А до В. Количество элементов массива:14 Тип Элемента массива: Int Результат вывести в виде: A[1]=........ A[2]=......... A[3]=......... Большое спасибо, за помощь!

  1. С клавиатуры задается последовательность чисел. Ввод прекращается по отрицательному числу в задаваемой последовательности. Найти сумму чисел, а также те из них, которые лежат в интервале от 1 до 5. Определить количество таких чисел.

  1. Дан Одномерный числовой массив. Определить сумму элементов массива, значения которых кратны 3, использовать while и for нужно прям очень срочно, выручите кто очень хорошо разбирается, для вас это за минуту пишется я уверен

  1. Дано матрицу размером 4х4. Найти сумму элементов в тех строках которые содержат хотя бы один отрицательный элемент

  1. Помогите пожалуйста не могу написать прогу в паскале: дан файл f компоненты которого являются символами получить файл g образованный из файла f с исключением повторных вхождений одного и того же символа в паскале

  1. Определить и вывести сумму элементов, значения которых находятся в диапазоне от А до В. Количество элементов массива:14 Тип Элемента массива: Int Заранее спасибо!