Запись оставлена hhh 25.02.2017 в 02:49
запустить | скачать | новая запись
- procedure F(n: integer);
- begin
- if n > 0 then begin
- F(n - 2);
- F(n - 1);
- F(n - 1);
- end;
- write('*');
- end;
- begin
- F(5);
- end.
Отправка исправлений и поправок. (cоздать новую запись)
После отправки поправок вы сможете посмотреть различия между старой и новой записью.