1
Function F(x:integer):integer;
begin
  F:= 2*x*x + 8*x + 10;
end;

BEGIN
  Readln(a,b);
  M:=а; 
  R:=F(а);
  for t:=a to b do bеgin
    if (F(t)>R) thеn bеgin
      М:=t;
      R:=F(t);
      writеln(M,f(t));
    end;
  end;
  writeln(M,f(t));
end;
write(M);
END

сообщение компилятора:

[pabcnetc.exe]Старт компиляции сборки Program8.pas...

[pabcnetc.exe]Начало компиляции Program8.pas... 1 ошибок Встречено 'if', а ожидалось ';'

[pabcnetc.exe]Компиляция завершена Program8.pas

[pabcnetc.exe]Готов

5
  • сообщение компилятора [pabcnetc.exe]Старт компиляции сборки Program8.pas... [pabcnetc.exe]Начало компиляции Program8.pas... 1 ошибок Встречено 'if', а ожидалось ';' [pabcnetc.exe]Компиляция завершена Program8.pas [pabcnetc.exe]Готов 13 фев 2018 в 13:05
  • 1
    это надо добавлять в текст вопроса, а не комментарием
    – Sublihim
    13 фев 2018 в 13:08
  • 1
    и мне кажется у вас количество begin меньше количества end
    – Sublihim
    13 фев 2018 в 13:09
  • сейчас посмотрю 13 фев 2018 в 13:20
  • все равно не отстаёт от if 13 фев 2018 в 13:30

1 ответ 1

4

Потому, что у вас часть букв - в латинском регистре, а часть - в русском, в частности, буквы е, М, а. И лишний end, как было верно замечено. Вот так будет правильно:

Function F(x:integer):integer;
begin
   F:= 2*x*x + 8*x + 10;
end;

var
  a, b, m, r ,t :  Integer;


BEGIN
   Readln(a,b);
   M:=a; R:=F(a);
   for t:=a to b do
      begin
        if (F(t) > R) then
           begin
              M:=t;
              R:=F(t);
              writeln(M,f(t));
           end;
      end;
   writeln(M,f(t));
   write(M);
END.

И старайтесь хоть как-то в будущем прилично форматировать код. Ведь его читать невозможно :)

1
  • Спасибо, просто я не знала как его сюда вбить. А так у меня такой же красивый как у вас. Ещё раз спасибо! 13 фев 2018 в 13:53

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими условиями использования и подтверждаете, что прочитали и поняли наши политику конфиденциальности и нормы поведения.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.