Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 161417
25.02.2009, 22:39
0.00 руб.
0 10 0
Компьютеры Программирование
Здравствуйте, уважаемые эксперты!
Не пойму, как написать следующую задачу на Pascal:
Даны 3 различных цифры, подсчитать сумму всех чисел, которые можно составить из них?

Обсуждение

давно
puporev
Профессор
401888
1232
26.02.2009, 09:24
общий
Если не заморачиваться генерацией всех этих чисел, а решить как на бумажке, то это так. Тройка этих цифр может быть 5 раз в позиции единиц (1 раз в однозначных числах и по 2 раза в 2х и3х значных), т.е. S1=5*(a+b+c); 4 раза в позиции десятков S2=40*(a+b+c) и два раза в позиции сотен S3=200*(a+b+c); S=S1+S2+S3; Например для 1,2,3 будет 245*6=1470.
давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
26.02.2009, 14:48
общий
Три цифры можно переставить только шестью способами:
123
132
213
231
312
321
===
1332
Если не заниматся перестановками и суммированием, то сумму можно посчитать так 2*111*(1+2+3) т.е. сумма всех цифр умноженная на 222.

Юрий Борисович:
откуда у вас такие числа?
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Неизвестный
26.02.2009, 17:39
общий
Уважаемые эксперты, помогите с написанием, очень прошу....
давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
26.02.2009, 17:45
общий
Вам с перестановками или только формулу реализовать?
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

давно
puporev
Профессор
401888
1232
26.02.2009, 19:00
общий
подсчитать сумму всех чисел, которые можно составить из них

Можно составить числа 1,2,3, 12,13,21,31,23,32+ все трехзначные. Это я так понял.
Неизвестный
26.02.2009, 20:46
общий
желательно формулу реализовать
давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
26.02.2009, 20:56
общий
c00ler:
Почитайте посты выше:
Есть два варианта: однозначные+двухзначные+трехзначные или только трехзначные, какую формулу из двух, реализовывать?
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Неизвестный
26.02.2009, 22:41
общий
Даны 3 различных цифры, следовательно 3х значные.
Заранее спасибо!
давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
27.02.2009, 10:28
общий
c00ler:
Код:
var
  a,b,c:integer;
begin
  write('Enter A:');
  readln(a);
  write('Enter B:');
  readln(b);
  write('Enter C:');
  readln(c);
  writeln('Summa:',222*(a+b+c));
  readln;
end.

Даже комментарии ставить стыдно.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Неизвестный
27.02.2009, 16:11
общий
Благодарю, Константин Николаевич!
Форма ответа