VPF::HELP!!!HELP!!!HELP!!! - Форум программистов

Yooo

Дата 28.4.2006, 12:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 27.4.2006

Репутация: нет
Всего: нет

Мляяяяя, помгите написать прогу в паскале
условие
1.
Найти сумму ряда
S=1+1*2+1*2*3+1*2*3*4+...+1*2*3*...*n
(я её сам не понял smile

)
2.
Пусть шестизначное число называется счастливым, если сумма трех первых цыфр равна сумме трех последних цифр и равна 13. Найти все счастливые числа.

Напишите проги ПЛИИИИИЗ

sergejzr

Дата 28.4.2006, 12:36 (ссылка)

(нет голосов)

Загрузка ...

Un salsero
Group Icon

Профиль
Группа: Админ
Сообщений: 13285
Регистрация: 10.2.2004
Где: Германия г .Ганновер

Репутация: 11
Всего: 360

Модератор: Название темы должно отражать ее суть!

--------------------

Me.
FB.
LinkedIn.
ORCID.
YT.

nostromo

Дата 28.4.2006, 13:08 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 194
Регистрация: 23.3.2006

Репутация: 4
Всего: 10

Вот решение задач на Smalltalk (как Вы и просили smile

):

1.

Код


n := 10.
res := 0.
a := 1.
(1 to: n) do: [:i | a := a * i. res := res + a.  ].
Transcript show: res  
"4037913"

2. (Очень неоптимально, но работает)

Код


sumDigits := [:v | |r q| r :=0. q := v. (1 to: 3) do: [:i| r := r+(q \\ 10). q := q // 10]. r ].
(100 to: 999) do: [:i| (0 to: 999) do: [:j| |s1 s2 | s1 := sumDigits value: i. s2 :=sumDigits value: j. ((s1 = s2) and: [s1 = 13]) 
ifTrue: [Transcript show: (i*1000 +j) displayString; cr.]]]

Это сообщение отредактировал(а) nostromo - 28.4.2006, 13:14

--------------------

На пыльных тропинках далеких планет останутся наши следы.

nostromo

Дата 28.4.2006, 13:43 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 194
Регистрация: 23.3.2006

Репутация: 4
Всего: 10

А вот и оптимальный вариант (интересные у Вас задачи):

Код


triplets := List new.
(0 to: 9) do: [:i | (i to: (i+9 min: 13)) do: [:j| 
     (13-j) <10 ifTrue: [triplets add: ((100*i) +(10*(j-i))+(13-j)) ]]].
(triplets select: [:x | x>=100]) do: [:i | 
      triplets do: [:j | Transcript show: (i*1000 +j) displayString; cr.]].

Всего получится 5175 чисел.

Yooo

Дата 28.4.2006, 15:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 27.4.2006

Репутация: нет
Всего: нет

ээээээээээ мляяяя я еще тока на 1 курсе ). по легче некак не получиться?
если нет то напиши от бегина до енда ПЛЗ, бкду очень признателен
заранее огромное спасибо! )))

Kisa

Дата 28.4.2006, 20:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 35
Регистрация: 12.4.2006

Репутация: нет
Всего: нет

Все когда-то учатся (P.S. Студентка и я, тоже на 1 курсе).
Вот 1 прога расшифрованная smile

Код


program pr;
var
s:real;
a,i,n:integer;
begin
write (‘Vvedite cheloe n: ‘);
readln (n);
s:=0;
 a:=1;
for i:=1 to n do
begin
a:=a*i;
s:=s+a;
end;
writeln (‘Rezultat= ‘,s);
readln;
end.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »