Ввести целое число и найти сумму его цифр(1234) паскаль

Var s,i: integer;   begin readln(i); s: =0; repeat s: =i mod 10 + s; i: =i div 10 until i=0; writeln(s); readln end.  

var

  a, summ: integer;

begin

  write('введите число ');

  readln(a);

  summ : = 0;

  while a > 0 do

  begin

      summ : = summ + a mod 10;

      a : = a div 10;

  end;

  writeln('сумма цифр равна ', summ);

end.

 

Делим с остатком числа на 2 до тех пор, пока не получим 0. остатки выписываем в обратном порядке: 2544 / 2 =  1272, остаток 0 1272 / 2 =  636, остаток 0 636 / 2 = 318, остаток 0 318 / 2 = 159, остаток 0 159 / 2 = 79, остаток 1 79 / 2 = 39, остаток 1 39 / 2 = 19, остаток 1 19 / 2 = 9, остаток 1 9 / 2 = 4, остаток 1 4 / 2 = 2, остаток 0 2 / 2 = 1, остаток 0 1 / 2 = 0, остаток 1 теперь выписываем остатки в обратном порядке: 100111110000 8563 / 2 = 4281, остаток 1 4281 / 2 = 2140, остаток 1 2140 / 2 = 1070, остаток 0 1070 / 2 = 535, остаток 0 535 / 2 = 267, остаток 1 267 / 2 = 133, остаток 1 133 / 2 = 66, остаток 1 66 / 2 = 33, остаток 0 33 / 2 = 16, остаток 1 16 / 2 = 8, остаток 0 8 / 2 = 4, остаток 0 4 / 2 = 2, остаток 0 2 / 2 = 1, остаток 0 1 / 2 = 0, остаток 1 выписываем остатки в обратном порядке:   10000101110011

    смотря что вы называете циклом. по установившейся терминологии любой цикл состоит из заголовка цикла (по строению которого циклы часто и именуют) и тела цикла. в языке паскаль в заголовке цикла с предусловием стоит ключевое слово while и ключевое слово цикла с параметром for стоять уже не может. но в теле цикла, которое может иметь любое содержимое, цикл for, конечно же, может встречаться.     а вот язык алгол, на базе которого н.вирт сконструировал свой паскаль, мог в заголовке цикла содержать много всего и, в том числе, смесь while с for: for x: =p0 step h1 until q-1, q+1 step h2 until t, t+0.17 step h3 while cos(x/2)< 0.85 do но н.вирт решил, что такой цикл неэффективен оставил от него жалкие ошметки. возможно, компилятору "стало проще жить", но зато программисты в паскале лишились возможности не только писать в цикле вещественные значения, но и вынуждены менять целочисленные только на 1 или -1.