Дано трехзначное число. Вывести число, полученное при перестановке цифр сотен и десятков

@Наталья8 · Регистрация: 09.03.2016

Дана трех значное число.вывести число,полученное при перестановки цифр сотен и десятков исходного числа(например,123 перейти 213).

@CodeR · 25.06.2012, 20:11

Pascal

Var n:integer;
Begin
    Repeat 
     write('Введите 3-ое число: ');readln(n);
    Until n in [100..999];
    n:=((n div 10) mod 10)*100+(n div 100)*10+(n mod 10);
    writeln('Полученное число: ',n);
End.

@Наталья8 208 / 179 / 53 Регистрация: 09.03.2016 Сообщений: 1,441
		1
	Дано трехзначное число. Вывести число, полученное при перестановке цифр сотен и десятков 25.06.2012, 18:01. Показов 15528. Ответов 1 Метки нет (Все метки) Дана трех значное число.вывести число,полученное при перестановки цифр сотен и десятков исходного числа(например,123 перейти 213). 0

Опции темы

Дано трехзначное число. Вывести число, полученное при перестановке цифр сотен и десятков

Решение