Предмет: Информатика, автор: ДарьяВихрь

Пожалуйста! В Паскале!

Приложения:

Ответы

Автор ответа: BerkutPirat
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