Вопрос по информатике:
Составить программу в Паскале.
Вам дано три числа a, b и c. Вы должны в таком порядке приписать эти числа друг к другу, чтобы в результате получилось минимальное число. Например, если a=12, b=5, c=3, приписыванием можно получить числа 1253, 1235, 3125, 3512, 5123, 5312. Минимальным среди этих чисел является 1235.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 17.04.2017 22:11
- Информатика
- remove_red_eye 3179
- thumb_up 14
Ответы и объяснения 2
Var
a: array[1..3] of string;
i, j, k, min, x: integer;
begin
for i := 1 to 3 do
begin
write('Введите ',i,' число:');
readln(a[i]);
end;
x := StrToInt(a[1] + a[2] + a[3]);
min := x; for i := 1 to 3 do
for j := 1 to 3 do
if j i then
for k := 1 to 3 do
if (j k) and (i k) then
begin
x := StrToInt(a[i] + a[j] + a[k]);
if x < min then min := x;
end;
writeln('min=', min)
end.
- 18.04.2017 14:28
- thumb_up 16
var a, b, c, p1, p2, p3, p4, p5, p6 :longint;
s1, s2, s3, s4, s5, s6, a1, b1, c1 :string;
begin
read (a);
read (b);
read (c);
str(a,a1);
str(b,b1);
str(c,c1);
s1:=a1+b1+c1;
s2:=a1+c1+b1;
s3:=b1+a1+c1;
s4:=b1+c1+a1;
s5:=c1+a1+b1;
s6:=c1+b1+a1;
val(s1,p1,a);
val(s2,p2,a);
val(s3,p3,a);
val(s4,p4,a);
val(s5,p5,a);
val(s6,p6,a);
a:=p1;
if p2 if p3 if p4 if p5 if p6 writeln(a);
end.
P.S. Грубо говоря мы собираем все возможные варианты, потом находим наименьшее и выводим его.
P.S.S. val(a, b, c) это процедура преобразования строки а в числовое значение b, а c проверка, преобразовалась ли она правильно.
И str(a, b) процедура перевода числового значения a, в строку b;
- 19.04.2017 23:14
- thumb_up 45
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.