Дано трёхзначное число. Определить число, полученное перестановкой цифр десятков и единиц

@Alina_lis · Регистрация: 12.02.2014

1.Дано трёхзначное число. Определить число, полученное перестановкой цифр десятков и единиц.

@ildwine · 12.02.2014, 17:55

Pascal

var
  a, d : integer;
begin
  repeat
    write('введите 3х-значное число: ');
    readln(a)
  until a in [100..999];
  d := (a div 100) * 100 + (a mod 10) * 10 + (a div 10) mod 10;
  write('новое число: ', d)
end.

@Alina_lis 0 / 0 / 0 Регистрация: 12.02.2014 Сообщений: 10
		1
	Дано трёхзначное число. Определить число, полученное перестановкой цифр десятков и единиц 12.02.2014, 17:38. Показов 5561. Ответов 1 Метки нет (Все метки) 1.Дано трёхзначное число. Определить число, полученное перестановкой цифр десятков и единиц. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Дано трёхзначное число. Определить число, полученное перестановкой цифр десятков и единиц

Решение