Дано 4-х значное...

Тема в разделе "Информатика", создана пользователем skorobogatov, 3 фев 2010.

  1. skorobogatov

    skorobogatov New Member

    Дано 4-х значное число. Определить, что больше само число или его перевёртыш.
     
    skorobogatov, 3 фев 2010
    #1
  2. GeTTo

    GeTTo New Member

    var
    n,a:integer;
    begin
    readln(n);
    a:=(n mod 10)*1000+((n mod 100) div 10)*100 + ((n mod 1000) div 100)*10+ n div 1000;
    if n>a then
    writeln('число ', n, ' больше перевертыша ', a)
    else
    writeln('перевертыш ', a, ' больше числа ', n);
    end.
     
     
     
    GeTTo, 3 фев 2010
    #2

Поделиться этой страницей

Наша группа