Определить число, полученное выписыванием в обратном порядке цифр заданного числа, не превышающего 65535

@Dampeer · Регистрация: 14.11.2012

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

Определить число, полученное выписыванием в обратном порядке цифр заданного числа, не превышающего 65535.

@CodeR · 28.11.2012, 14:26

Pascal

Var n,m,p,k,zn,i:integer;
Begin
    write('Введите число: ');readln(n);
    if n<0 then zn:=-1
     else zn:=1;
    n:=abs(n);m:=n;
    While m>0 do
    Begin
      inc(k);
      m:=m div 10;
    End;
    p:=1;
    For i:=1 to k-1 do
     p:=p*10;
    m:=0;
    While n>0 do
    Begin
      m:=m+p*(n mod 10);
      n:=n div 10;
      p:=p div 10;
    End;
    writeln('Полученное число = ',m*zn);
    readln;
End.

@Dampeer 0 / 0 / 0 Регистрация: 14.11.2012 Сообщений: 14
		1
	Определить число, полученное выписыванием в обратном порядке цифр заданного числа, не превышающего 65535 28.11.2012, 14:10. Показов 1904. Ответов 1 Метки нет (Все метки) Определить число, полученное выписыванием в обратном порядке цифр заданного числа, не превышающего 65535. 0

	28.11.2012, 14:26

Опции темы

Определить число, полученное выписыванием в обратном порядке цифр заданного числа, не превышающего 65535

Решение