Славик
ЮС
Юлия Суранова
var n,m:longint;
begin readln(n); m:=n mod 10; while n>9 do n:=n div 10; write(m+n); readln end.
Похожие вопросы
var n,m:longint;
begin readln(n); m:=n mod 10; while n>9 do n:=n div 10; write(m+n); readln end.