Найти число, полученное перестановкой 1 и 2 цифр заданного числа

@Di-Ma · Регистрация: 11.04.2013

Студворк — интернет-сервис помощи студентам

Ребята, помогите...

Найти число, полученное перестановкой 1 и 2 цифр заданного числа

@Di-Ma · 11.04.2013, 22:01 **[ТС]**

Извините ,что написал в этой теме, свою не получается создать, регистрация всё-время вылетает(

@ermolay · 12.04.2013, 02:12

Pascal

var
  a: integer;
begin
  repeat
    write('Ââåäèòå òðåõçíà÷íîå ÷èñëî: ');
    readln(a);
  until (a>99)and(a<=999);
  writeln(a mod 10 + a div 10 mod 10*100 + a div 100 *10);
  readln;
end.

Добавлено через 3 минуты

Комментарий модератора

Di-Ma, если Вам нужны и остальные задания - создавайте новые темы и соблюдайте правила:
1. Множественные задания в одной теме запрещены. Одно задача - одна тема.
2. Текстовую часть задания набирайте вручную.
3. Формулы создавайте в редакторе формул (доступен в расширенном режиме). Если сложности с редактором - допускаются формулы в виде вложенной картинки.
Читайте правила.

@Di-Ma · 12.04.2013, 08:21 **[ТС]**

Большое спасибо

@Di-Ma 0 / 0 / 0 Регистрация: 11.04.2013 Сообщений: 3
		1
	Найти число, полученное перестановкой 1 и 2 цифр заданного числа 11.04.2013, 21:25. Показов 1196. Ответов 3 Метки нет (Все метки) Ребята, помогите... 0

@Di-Ma 0 / 0 / 0 Регистрация: 11.04.2013 Сообщений: 3
	11.04.2013, 22:01 [ТС]	2
	Извините ,что написал в этой теме, свою не получается создать, регистрация всё-время вылетает( 0

@Di-Ma 0 / 0 / 0 Регистрация: 11.04.2013 Сообщений: 3
	12.04.2013, 08:21 [ТС]	4
	Большое спасибо 0

Опции темы