Помощь - Поиск - Пользователи - Календарь
Полная версия: Задача с перестеновкой цифр в числе
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
serg
Дано трехзначное число. Найти число полученное при перестановке второй и третьей цифр заданного числа.В паскале.
Как я понимаю 3 число можно найти поделив на 10 и определив дробную часть,а 2ое число?

Добавлено через 12 мин.
А точнее как поменять не знаю(
Игорь
Можно находить разряды числа целочисленным делением и вычитанием, а потом при выводе поменять их.


program prog;

var
inp,a,b,c:integer;

begin
readln(inp);
a:=inp div 100;
b:=(inp-(a*100)) div 10;
c:=((inp-(a*100))-(b*10));
writeln(a,c,b);
end.

volvo
Не надо лишних действий...
  n := 120;
writeln(100*(n div 100) + 10*(n mod 10) + ((n div 10) mod 10));
serg
Игорь не работает(

Добавлено через 4 мин.
Volvo спасибо огромное!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.