Кто шарит в паскале - Help please.

[La chate]

Так как самому приходится паскаль изучать, счас сел и попробовал написать - по своему методу в предыдущем посте

Получилось (Писалось в турбо паскале, т.к. другого нету)

Если хочешь могу исходник дать, но пишется кстати не так уж сложно - наверное, всего около 40 строк

[Willie]

La chate, напиши здесь пожалуйсто!

[Сказочник]

Cмерть археологам!

[Gothician]

@"Сказочник":
Cмерть археологам!Не нашлось на него хорошей мумии

[Metaphor]

М*мии

[Развратный Прист.]

@"Metaphor":
М*мии
рофл.

[абракадавр]

Фу, такая простая задача, а вы бред пишете.

Я тоже бред напишу, зато за 3 минуты и все работает (да, криво, но сейчас лень даже вывод нормальный писать)

[code:2yi2jd5e]program p1;
var
a,b,c : array [1..200] of integer;
b0,i,j,l,b1,b2,k : integer;

begin
readln(b0);
l:=195;
for i:=1 to 200 do begin
a**:=0;**
end;
a[1]:=1;

---

for i:=2 to b0 do begin
b1:=i mod 10;
b2:=(i-b1) div 10;
writeln(i,b2,b1);

---

for k:=1 to 200 do begin
b[k]:=0;
c[k]:=0;
end;

---

for j:=1 to l do begin
*b[j]:=b[j]+a[j]b1;
if b[j]>=10 then begin
b[j+1]:= b[j+1] + (b[j] div 10);
b[j]:=b[j] mod 10
end;

---

*c[j]:=c[j]+a[j]b2;
if c[j]>=10 then begin
c[j+1]:= c[j+1]+ (c[j] div 10);
c[j]:=c[j] mod 10
end;
end;

---

a[1]:=b[1];
for j:=2 to l do begin
a[j]:=b[j]+c[j-1];
if a[j]>=10 then begin
a[j+1]:= a[j+1]+ (a[j] div 10);
a[j]:=a[j] mod 10
end;
end;
end;

---

for i:=1 to 195 do begin
write(a[196-i]);
end;
writeln('');

---

end.[/code:2yi2jd5e]

[Deathspell]

вообще то
[j]+c[j-1];
if a[j]>=10 then begin
a[j+1]:= a[j+1]+ (a[j] div 10);
a[j]:=a[j] mod 10
1 to l do begin
b[j]:=b[j]+a[j]*b1;
if b[j]>=10 then begin
b[j+1]:= b[j+1
]*b2;
if c[j]>=10 then begin
c[j+1]:= c[j+1]+ (c[j] div 10);
c[j]:=c[j] mod 10 ]*b2;
if c[j]>=10 then begin
c[j+1]:= c[j+1]+ (c[j] div 10);
c[j]:=c[j] mod 10 ]*b2;
if c[j]>=10 then begin
c[j+1]:= c[j+1]+ (c[j] div 10);
c[j]:=c[j] mod 10

[абракадавр]

Deathspell, и какова смысловая нагрузка поста?

p.s. в качестве домашнего задания:
-используйте только один массив, а не три
-храните в ячейке массива больше данных, чем один десятичный разряд числа
-сделайте, чтобы в l хранилась реальная длинна получающегося числа

[Deathspell]

Да чего вы все на меня набросились!!! Я ЖЕ ПОШУТИЛЬ (ШИФТ ЗАЖАТ ЧЕМУ Я РАД)