Помогите решить срочно: РЕШИТЕ СКОЛЬКО СМОЖЕТЕ,ЗАРАНЕЕ СПАСИБО!!!! 1)Дано натуральное трехзначное число . Определитьчисло, полученное перестановкой разрядов десятков и единиц исходного числа.
1) var a: 100..999; a1, a2, a3: 0..9; //а1 - сотни, а2 - десятки, а3 - единицы begin writeln('Введите натуральное трехзначное число'); readln(a); a1:= a div 100; a2:= (a mod 100) div 10; a3:= a mod 10; writeln('Полученное число: ', a1, a3, a2); end. 2) var a: 100..999; a1, a2, a3: 0..9; begin writeln('Введите натуральное трехзначное число'); readln(a); a1:= a div 100; a2:= (a mod 100) div 10; a3:= a mod 10; writeln('Полученное число: ', a2, a1, a3); end. 3) var a: 100..999; a1, a2, a3: 0..9; begin writeln('Введите натуральное трехзначное число'); readln(a); a1:= a div 100; a2:= (a mod 100) div 10; a3:= a mod 10; writeln('Полученное число: ', a3, a1, a2, a3); end. 4) var a: 1000..9999; a1, a2, a3, a4: 0..9; begin writeln('Введите натуральное четырехзначное число'); readln(a); a1:= a div 1000; //тысячи a2:= (a mod 1000) div 100; //сотни a3:= (a mod 100) div 10; //десятки a4:= a mod 10; //единицы writeln('Полученное число: ', a4, a3, a2, a1); end. Все остальное делается наподобие этого: просто в writeln меняешь местами цифры и все.
