Ввести целое число и найти сумму его цифр(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.