Ответ(ы) на вопрос:
ГостьVar N,a:Integer;Begin ReadLn(N); a:=0; while N<>0 do begin a:=10*a+N mod 10; N:=N div 10 end; writeln(a);end.
Не нашли ответ?
Похожие вопросы
Гость