1. 

   Нися New Member

   дано пятизначное число Найти число,полученное при прочтении его цифр справаналево.

    

   Нися, 5 янв 2010

   #1
2. 

   СтратегЪ New Member

   Program naoborot;
   Uses crt;
   var n,a,b:integer;
   Begin
   ClrScr;
   write('введите натуральное число: ');
   readLn(X);
   N:=X;
   while N>=1 do
   begin
   a:=N mod 10;
   N:=N div 10;
   b:=b*10+a;
   end;
   write('Прочтение цифр числа справа налево: ',b)
   End.

    

   СтратегЪ, 5 янв 2010

   #2

Ваше имя или e-mail:

Пароль:

Забыли пароль?

Запомнить меня