Перевернуть заданное целое положительное число

@Cosfar · Регистрация: 19.01.2015

Author24 — интернет-сервис помощи студентам

Перевернуть заданное целое положительное число
через циклы я так понял)

@Puporev · 19.01.2015, 15:43

Pascal

uses crt;
var m,s:longint;
    i:byte;
begin
clrscr;
write('m=');
readln(m);
s:=0;
while m>0 do
 begin
  i:=m mod 10;
  s:=s*10+i;
  m:=m div 10;
end;
write('rezult = ',s);
readln
end.

@Cosfar · 19.01.2015, 15:46 **[ТС]**

спасибо

@Cosfar 0 / 0 / 0 Регистрация: 19.01.2015 Сообщений: 58
		1
	Перевернуть заданное целое положительное число 19.01.2015, 15:36. Показов 1853. Ответов 2 Метки нет (Все метки) Перевернуть заданное целое положительное число через циклы я так понял) 0

@Cosfar 0 / 0 / 0 Регистрация: 19.01.2015 Сообщений: 58
	19.01.2015, 15:46 [ТС]	3
	спасибо 0

Перевернуть заданное целое положительное число

Решение