Program n1; var n, a, m: longint; begin write('введите число: '); readln(n); m := 0; while n>0 do begin a := n mod 10; n := n div 10; m := m*10 + a; end; writeln('перевернутое число: ',m); end.
1 votes Thanks 0
Студэнt
Var n, nn : integer; begin repeat write ('Введите число, не оканчивающиеся на 0: ') readln (n); until (n mod 10)<>0;
while n>0 do begin nn:=nn*10+(n mod 10); n:=n div 10; end;
Answers & Comments
Verified answer
Program n1;var
n, a, m: longint;
begin
write('введите число: ');
readln(n);
m := 0;
while n>0 do begin
a := n mod 10;
n := n div 10;
m := m*10 + a;
end;
writeln('перевернутое число: ',m);
end.
n, nn : integer;
begin
repeat
write ('Введите число, не оканчивающиеся на 0: ')
readln (n);
until (n mod 10)<>0;
while n>0 do
begin
nn:=nn*10+(n mod 10);
n:=n div 10;
end;
write (nn);
end.