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