Введите целое число, состоящее не более чем из пяти цифр. Выведите число, состоящие из цифр исходного, записанных в обратном порядке

Категория: Delphi/Pascal
2012-01-08 20:05:27

Для выделения цифр числа воспользуйтесь операциями div и mod для целых типов

code: #pascal
Program PascalGuru;
var
  cislo:longint;
 
begin
  Write('Vvedite chislo: ');  ReadLn(cislo);
  writeln;
 
  while cislo<>0 do
  begin
    if cislo>0 then write(cislo mod 10);
    cislo:=cislo div 10
  end;
 
readln;
end.
Поделиться:

Похожие статьи:

теги: новички, mod, div