Объяснить работу цикла - 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;                       //Закрываем операторные скобки

Оцени полезность:

5   голосов , оценка 4.2 из 5
Похожие ответы