Дано натуральное число n. Вычислить сумму последних k цифр в его записи. Значение k ввести - Turbo Pascal
Формулировка задачи:
Решать как циклы с параметром
Решение задачи: «Дано натуральное число n. Вычислить сумму последних k цифр в его записи. Значение k ввести»
textual
Листинг программы
var
i, k, n, s: integer;
begin
Write('Введите число: ');
readln(n);
Write('Введите количество цифр: ');
readln(k);
s := 0;
for i := 1 to k do
begin
s := s + n mod 10;
n := n div 10;
end;
Writeln('Сумма цифр: ', s);
end.
Объяснение кода листинга программы
В данном коде на Turbo Pascal пользователь вводит натуральное число n и количество цифр k, которые нужно вычислить. Переменная s инициализируется нулем. Затем происходит цикл for, который выполняется k раз. На каждой итерации значение переменной n делится на 10, а значение переменной s увеличивается на остаток от деления (n mod 10). После завершения цикла выводится сумма последних k цифр в числе n.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д