Сделайте пожалуйста программу в Паскале!
Задание:
Дано трехзначное число.Вывести число, полученное при перестановке цифр сотен и десятков исходного числа (например, 123 перейдет в 213)
Ответы
Ответ дал:
0
program u4i_div_and_mod;
var a,b,c,z,x,v:integer;
begin
readln(a);
z:= a div 100;{1}
x:= a mod 100;{23}
c:= x mod 10; {3}
v:= x div 10;{2}
writeln(v,z,c);
readln;
end.
var a,b,c,z,x,v:integer;
begin
readln(a);
z:= a div 100;{1}
x:= a mod 100;{23}
c:= x mod 10; {3}
v:= x div 10;{2}
writeln(v,z,c);
readln;
end.
Похожие вопросы
2 года назад
7 лет назад
10 лет назад
10 лет назад