Procedure F(n: integer); begin if n < 6 then begin write(n); F(n * 2); F(n + 2) end; if n... Procedure F(n: integer); begin if n < 6 then begin write(n); F(n * 2); F(n + 2) end; if n < 5 then begin write(n + 1); F(n + 2) end end; В паскале пишет (встречен конец файла а ожидалось begin) Как пофиксить ? Оператор program в Паскале обязательным не является. Более того, он ничего не делает. Procedure F(n: integer);begin if n < 6 then begin write(n); F(n * 2); F(n + 2) end; if n
Да, извините за путаницу. Процедура должна вызываться в основной программе для выполнения. Добавьте в конце кода следующие строки:
begin
F(1);
end.
Это вызовет процедуру F с параметром 1 и запустит выполнение кода. Извините за недоразумение.