Var A:longint; S:integer; Begin Write('Введите целое число: ');Read(A); S:=0; A:=Abs(A); Repeat S:=S+A mod 10; A:=A div 10; Until A = 0; Write('Сумма цифр числа: ',S); End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
