Паскаль, компиляция

Question

Не могу прокомилировать, выводит либо ноль либо ошибки

K[1]:= 1;
for i:= 2 to N do begin
K[i]:= K[i-1];
if i mod 3 = 0 then
K[i]:= K[i] + K[i div 3]

просто надо оформить с var, бегинами и ендами, я не помню как это делать. просто чтобы прошел код

Answer 1

program Test;

var
    i, N : integer;
    K :  array[1..100] of integer;
begin

    K[1]:= 1;
    N := 10;

    for i:= 2 to N do begin
        K[i]:= K[i-1];
        if i mod 3 = 0 then
        K[i]:= K[i] + K[i div 3];
       Writeln(K[i]);
    end;

end.

Answer 2

Нет объявления программы:

program ProgName;

Нет объявления константы:

const N = 100;

Нет объявления переменных:

var
  i: integer;
  K: array[1..N] of integer;

Нет начала и конца программы:

begin
...
end.

В общем, для начала стоит хотя бы школьный учебник информатики в руки взять.

БЛОГ НА HUSL

Паскаль, компиляция

Ответы (2 шт):