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
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
