Консультация онлайн # 161417

Раздел: Pascal / Delphi / Lazarus
Автор вопроса: c00ler
Дата: 25.02.2009, 22:39 Консультация неактивна
Поступило ответов: 0
Здравствуйте, уважаемые эксперты!
Не пойму, как написать следующую задачу на Pascal:
Даны 3 различных цифры, подсчитать сумму всех чисел, которые можно составить из них?

Ответов еще не поступило.

Мини-форум консультации # 161417

puporev

Профессор

ID: 401888

177870

= общий =    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.
Зенченко Константин Николаевич

Старший модератор

ID: 31795

177910

= общий =    26.02.2009, 14:48
Три цифры можно переставить только шестью способами:
123
132
213
231
312
321
===
1332
Если не заниматся перестановками и суммированием, то сумму можно посчитать так 2*111*(1+2+3) т.е. сумма всех цифр умноженная на 222.

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

177938

= общий =    26.02.2009, 17:39
Уважаемые эксперты, помогите с написанием, очень прошу....
Зенченко Константин Николаевич

Старший модератор

ID: 31795

177939

= общий =    26.02.2009, 17:45
Вам с перестановками или только формулу реализовать?
=====
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.
smile
puporev

Профессор

ID: 401888

177956

= общий =    26.02.2009, 19:00

подсчитать сумму всех чисел, которые можно составить из них


Можно составить числа 1,2,3, 12,13,21,31,23,32+ все трехзначные. Это я так понял.
неизвестный

177972

= общий =    26.02.2009, 20:46
желательно формулу реализовать smile
Зенченко Константин Николаевич

Старший модератор

ID: 31795

177973

= общий =    26.02.2009, 20:56
c00ler:
Почитайте посты выше:
Есть два варианта: однозначные+двухзначные+трехзначные или только трехзначные, какую формулу из двух, реализовывать?
=====
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.
smile
неизвестный

177989

= общий =    26.02.2009, 22:41
Даны 3 различных цифры, следовательно 3х значные.
Заранее спасибо!
Зенченко Константин Николаевич

Старший модератор

ID: 31795

178019

= общий =    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.

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

178061

= общий =    27.02.2009, 16:11
Благодарю, Константин Николаевич! smile
Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.