Дано трехзначное число.Получить 6 различных чисел,образованных перестановкой цифр заданного числа.ЗАПИСАТЬ ПРОГРАММУ НА ЯЗЫКЕ ПАСКАЛЬ.
5-9 класс
|
Bagchik
14 сент. 2013 г., 23:09:53 (10 лет назад)
Stas13
15 сент. 2013 г., 2:07:55 (10 лет назад)
var n,n1,n2,n3:integer;
function srostit(a,b,c:integer):integer;
begin
srostit := a*100 + b*10 + c;
end;
Begin
read(n);
n1:=n div 100;
n2:=n mod 100 div 10;
n3:=n mod 10;
writeln(srostit(n1,n2,n3));
writeln(srostit(n1,n3,n2));
writeln(srostit(n2,n1,n3));
writeln(srostit(n2,n3,n1));
writeln(srostit(n3,n1,n2));
writeln(srostit(n3,n2,n1));
End.
Ответить
Другие вопросы из категории
Pascal ABC
Нужно подробное написание программы
-Распечатать таблицу перевода от 1 до 10 верст в метры (1 верста = 1067 м)
Читайте также
Запишите на языке ПаскальЗапишите на языке Паскаль программу,которая для произвольного двузначного числа определяет:а) сумму и произведение его
цифр;б) число,образованное перестановкой цифр исходного числа. Срочно надо
Запишите на языке Паскаль программу,которая для произвольного двузначного числа определяет: а) сумму и произведение его цифр; б)
число,образованное перестановкой цифр исходного числа.
Вы находитесь на странице вопроса "Дано трехзначное число.Получить 6 различных чисел,образованных перестановкой цифр заданного числа.ЗАПИСАТЬ ПРОГРАММУ НА ЯЗЫКЕ ПАСКАЛЬ.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.