Предмет: Информатика,
автор: ДарьяВихрь
Пожалуйста! В Паскале!
Приложения:

Ответы
Автор ответа:
0
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.
Похожие вопросы
Предмет: Биология,
автор: zvezdylia88
Предмет: Русский язык,
автор: glebivanov011
Предмет: Английский язык,
автор: Аноним
Предмет: Математика,
автор: yura666
Предмет: Алгебра,
автор: крпмдышвагирм