Элементарная Задача По Pascal

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

isqoff

#2
Код:
uses crt;
var a:integer;
procedure data(data:integer;ind:char);
var a,b,c,itog:integer;
begin
case(ind)of
//28936
'b': begin
a:=28936 div 1000;
b:=(28936 mod 100)*1000;
c:=(28936 div 100 mod 10)*100;
itog:=b+c+a;
write(itog);
end;
's': begin

end;
end;

end;
BEGIN
data(28936,'b');
END.
s в case допишешь сам