Карта сайта

Это автоматически сохраненная страница от 10.01.2013. Оригинал был здесь: http://2ch.hk/b/res/41438501.html
Сайт a2ch.ru не связан с авторами и содержимым страницы
жалоба / abuse: admin@a2ch.ru

Чтв 10 Янв 2013 00:45:32
Анон, помоги решить задачу, с меня нихуя.


Чтв 10 Янв 2013 00:47:59
>>41438501
Хи хи хи нет

Чтв 10 Янв 2013 01:03:29
>>41438728
Сам уже решил, лол

Program Factorial;
Var F,N:integer;

Procedure FACT(N:integer; Var F:integer);
begin
IF N=0 THEN F:=1
ELSE
begin
FACT(N-1,F);
F:=N*F
end
end;

Begin
N:=8;
FACT(N,F);
Writeln('a=',F);
N:=11;
FACT(N,F);
Writeln('b=',F);
N:=1;
FACT(N,F);
Writeln('c=',F);
N:=16;
FACT(N,F);
Writeln('d=',F);
N:=7;
FACT(N,F);
Writeln('e=',F);
Readln;
End.

Чтв 10 Янв 2013 01:05:18
>>41439270
Правильно ведь?

Чтв 10 Янв 2013 01:06:42
>>41438501
Ваще ахуеть, факториал написать не может, и на кого ж ты такой гениальный учишься?

Чтв 10 Янв 2013 01:07:03
>>41439320
>Вещественного типа
А у тебя целые типы


← К списку тредов