• Где ошибка?
    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)

Ответы 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.

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

  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years