Question

Где ошибка? program asd; var a,b,c,k,n: real; const i=10; j=10; begin n:=10i + 15j; write(n,''); a:= 0; write(a,' '); b:= 1; write(b,' '); for k:=3 to n do begin write(a+b,' '); c:= b; b:= a + b; a:= c; end; readln end. Сама ошибка: Free Pascal Compiler version 2.6.4+dfsg-6 [2015/05/31] for i386 Copyright (c) 1993-2014 by Florian Klaempfl and others Target OS: Linux for i386 Compiling prog.pas prog.pas(7,7) Fatal: Syntax error, ";" expected but "identifier I" found Fatal: Compilation aborted Error: /usr/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled)

Answer 1

Программа без синтаксических ошибок:

program asd;

var

a,b,c,n, k: longint;

const i=10; j=10;

begin

n:=10*i + 15*j;

write(n,'');

a:= 0;

write(a,' ');

b:= 1;

write(b,' ');

for k:=3 to n do begin

write(a+b,' ');

c:= b;

b:= a + b;

a:= c;

end;

readln

end.

Так как условия задачи нет, то делает ли программа то, что нужно - неизвестно.

Answer 2

Ошибка находится в следующей строке:

pascalCopy code
n := 10i + 15j;

Правильное использование констант суффиксов для чисел в Pascal - это добавление буквы после числа, без пробелов между ними. В данном случае вы хотите умножить 10 на i и 15 на j, так что это должно выглядеть так:

pascalCopy code
n := 10 * i + 15 * j;

Правильный вариант программы:

pascalCopy code
program asd;

var
  a, b, c, k, n: real;
const
  i = 10;
  j = 10;

begin
  n := 10 * i + 15 * j;
  write(n, ' ');
  a := 0;
  write(a, ' ');
  b := 1;
  write(b, ' ');

  for k := 3 to n do
  begin
    write(a + b, ' ');
    c := b;
    b := a + b;
    a := c;
  end;

  readln;
end.

Теперь программа скомпилируется без ошибок.