Главная » Pascal, Исходники, Перевод » Переворот числа
Ноя
25

Переворот числа

Программа переворачивает число задом на перед. Если вы напишете 4261, вам выдаст 1624.

[sourcecode language=»css»]
program tr;
begin
writeln(‘vvedite chislo’);
readln(d);
x:=0;
s:=d;
while d>0 do begin
d:= d div 10;
inc(x);
end;
d:=s;
z:=0;
for d:= 1 to x do begin
z:=z*10+s mod 10;
s:= s div 10;
end;
writeln(‘naoborot= ‘,z);
readln;
writeln(‘for http://kpeople.ru’);
readln;
end.
[/sourcecode]

Скачать .exe, .pas



Понравилась статья? Сделай приятно ее автору, поделись с друзьями:


Хотите получать обновления данного блога на EMail?

Введите адрес Почтового Ящика:




Подтвердите подписку в письме пришедшем на Почту, после чего начнете получить рассылку.