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