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) Как пофиксить ?
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) Как пофиксить ?
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) Как пофиксить ?
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Данная ошибка возникает из-за того, что в процедуре F() пропущено ключевое слово begin после условий if. Для исправления данной ошибки необходимо добавить ключевое слово begin после условий if. Вот исправленный код:
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;
После внесения этих изменений код должен успешно скомпилироваться и работать правильно.