Здравствуйте!
Помогите решить простую задачу на ЯП Pascal.
Условие:
Есть 5-значное число 28936. Нужно первые две и последние две цифры поменять местами:
а) симметрично, должно получится так 63982
б) Блочно (не совсем верное название), должно получится так 36928.
при этом использовать div и mod.

Блин, чет сегодня мозг не варит... В голову пришло только подобное чопорное решение.
а) Const N=28936;
Var a:integer;
Begin
  a:=(N mod 10)*10000+((N mod 100) div 10)*1000+((N div 100) mod 10)*100+((N div 1000) mod 10)*10+(N div 10000);
  WriteLn(a);
end.
б) Const N=28936;
Var a:integer;
Begin
  a:=(N mod 100)*1000+((N div 100) mod 10)*100+(N div 1000);
  WriteLn(a);
end.
Все работает, но только для 5-значных чисел.

GS3, поясни.

изучай mod и div ( остаток,,, целое) то что Дмитрий написал на этом и состоит делит число и находит остаток и т.д

GS3, куда уж проще... не циклы не использую, не какие то сложные условия.