Предмет: Информатика, автор: garfar

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

Ответы

Автор ответа: Аноним
0
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

Похожие вопросы
Предмет: Алгебра, автор: ikikit5p2ga0r