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

Найти сумму чисел 4-х значного числа используя линейный алгоритм

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

Var
  n,s:longint;
begin
  Write(Введите натуральное четырехзначное число: );
  Readln(n);
  s:=n mod 10;
  n:=n div 10;
  s:=s+n mod 10;
  n:=n div 10;
  s:=s+n mod 10;
  n:=n div 10;
  s:=s+n;
  Writeln(Сумма цифр введенного числа равна ,s)
end.

Тестовое решение:
Введите натуральное четырехзначное число: 1745
Сумма цифр введенного числа равна 17