:(язык pascal) найти минимальное из двух чисел и переставить первую и последнюю цифры.
tln72
3
18.05.2019 01:50
0
Другие вопросы по теме Информатика
Назар12344
24.08.2019 19:50
Marína19112006
14.08.2019 23:30
pakipysi
14.08.2019 23:30
feo073007feo
14.08.2019 23:30
Heicioe
14.08.2019 23:30
Вікторія232003
14.08.2019 23:30
LadyK15
14.08.2019 23:30
simono627122va
14.08.2019 23:30
zverrodion199911
14.08.2019 23:40
Популярные вопросы
- Сочинение на тему что я знаю о сложном предложении. быстрее : )...
1 - В5 одинаковых банках а л сока.сколько нужно таких банок, чтобы разлить...
3 - Ох кароч, надо выражение по образцу : о образец: 48-(17+a)=47-17-a=31-a....
3 - Квиду связи относятся словосочетания новый клип, выполнять , его заслуга,...
3 - Даны два разных угла. равны ли смежные с ними углы?...
2 - Розвязати рівняння х-4=х-2 : х-2 х-2 : х-2 пишеться дробом...
1 - Носитель информации на который записывают программы для хранения...
3 - Охарактеризуйте государство как политический институт...
2 - Відредагуйте речення: 1. вирушивши в похід, нам усміхалося сонце й...
2 - Подчеркните уменьшаемое одной чертой,а вычитаемое двумя чертами в...
2
var a,b,N,M,k,cn,c1:longint;
begin
read(a,b);
if a>b then N:=b else N:=a;
cn:=N mod 10;
M:=N;
k:=1;
while N>0 do
begin
c1:=N mod 10;
k:=k*10;
N:=N div 10;
end;
N:=M-c1*(k div 10)+cn*(k div 10)-cn+c1;
writeln('---');
write(N);
end.