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

bestsoule bestsoule    2   27.09.2019 20:40    0

Ответы
BeautifulGirl001 BeautifulGirl001  27.08.2020 08:21

// 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.

ПОКАЗАТЬ ОТВЕТЫ
Aynur123455 Aynur123455  27.08.2020 08:21
Указали только процедуру. "begin" и "end." обязательно должны быть в коде.

Нужно обязательно ввести функцию F в код. Эникей был прав в том, что там точка с запятой не нужна.
Procedure f(n: integer); begin if n < 6 then begin write(n); f(n * 2); f(n + 2) end; if n < 5
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика