Question

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) Как пофиксить ?

Answer 1

Указали только процедуру. "begin" и "end." обязательно должны быть в коде.

Нужно обязательно ввести функцию F в код. Эникей был прав в том, что там точка с запятой не нужна.

Answer 2

перед end точка с запятой факультативна, это Вам не С/С++

Answer 3

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

// Внимание! Если программа не работает, обновите версию!

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

 var n := ReadInteger;

 F(n)

end.

Answer 4

Ответ дан чисто "из принципа", чтобы некоторые "упертые дети" убедились, что никаких "точек с запятыми" вносить в код не нужно.