Написать программу которая меняет 2 и 3 цифру в четырехзначном числе
Написать программу которая меняет 2 и 3 цифру в четырехзначном числе
Гость
Ответ(ы) на вопрос:
Гостьvar a,a1,a2,a3,a4,b:integer;
begin
write('a = ');
readln(a);
a1:=a div 1000;
a2:=a div 100 mod 10;
a3:=a mod 100 div 10;
a4:=a mod 10;
b:=a1*1000+a3*100+a2*10+a4;
writeln('b = ',b);
end.
Пример:
a = 4682
b = 4862
Не нашли ответ?
Похожие вопросы