Var a,b,c,e:longint; begin writeln('введите число'); readln(a); for b:=a downto 0 do begin c:= a mod 10; a:=a div 10; e:=e+c; end; writeln('сумма цифр числа => ',e); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
