Объяснить работу цикла - Turbo Pascal
Формулировка задачи:
Здравствуйте.Прошу помочь с объяснением цикла в программе!(а именно,что такое а,t1,t2,k?)Заранее благодарю.
Решение задачи: «Объяснить работу цикла»
textual
Листинг программы
function sum(a:integer):integer; //Имя функции и её параметры var t2,k:integer; //Переменные для работы с числом begin //Открываем операторные скобки k:=0; //Обнуляем переменную K для нахождения суммы repeat //Выполнять t2:=a mod 10; //Присваем переменной T2 остаток от деления А на 10 k:=k+t2; //Прибавляем найденный остаток. a:=a div 10; //Берем целую часть исходного числа от деления на 10 until a=0; //До тех пор, пока А = 0 sum:=k; //Найденная сумма всех цифр в числе end; //Закрываем операторные скобки