Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Напишите программу,которая находит сумму цифр введённого пятизначного натурального числа

Ответ оставил Гость

Var a,s:integer;
begin
  repeat
    writeln(Введите число );readln(a);
  until (a>10000) and (a<99999);
  while a<>0 do begin
    s:=s+a mod 10;
    a:=a div 10;
  end;
  writeln(Сумма цифр:,s);
end.

Тестовое решение:
Введите число
56743
Сумма цифр:25