Написать программу которая меняет 2 и 3 цифру в четырехзначном числе

kot289 kot289    2   02.08.2019 04:40    0

Ответы
Екатерина270604 Екатерина270604  07.08.2020 22:25
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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика