Напишите программу, которая впоследовательности целых чиселопределяет количество четных чисел, кратных шести. программа получает на вход целые числа, количество введенныхчисел неизвестно, последовательностьчисел заканчивается числом ноль (ноль – признак окончания ввода, не входит впоследовательность) . количество чисел не превышает 1000. введенные числа по модулю не превышают 30000.

Const n = 1000; var a: array [1..n] of integer; k,i,c: integer; beginreadln (c); k: =0; for i: =1 to c do  readln (a[i]); for i: = 1 to c do begin  while a[i]< > 0 do  if (a[i] mod 2 = 0) and (a[i] mod 6 = 0) then  k: =k+1 end; writeln (k);   end.

1) описание массива должно быть константным, запись  n+20 - переменная. изменить: задать n+20 в виде константы.

 

2) будет куча ошибок

а) i: byte - есть декларация, но нет инициализации перед использованием, вероятно, будут ошибки при попытке использования как индекс массива. (не совсем уверен, возможно разные среды могут проводить автоинициализацию в ноль, в таком случае тоже будет ошибка, но уже из-за несуществующего индекса массива)

б) нет декларации переменной c, хотя она используется (if c[i] mod 10=0 then p: =p+1; )

 

  я тут немного отсебятины добавил, что бы программа не слетала если что-то нерпавильное вводиш))

 

 

vara: string; b: integer; beginwriteln ('введите строку'); read (a); if (a='город минск')then writeln ('город минск')elsebeginwriteln ('введите "город минск", 1-продолжить, 0-выйти'); read (b); end; while (b = 1) dobeginwriteln ('введіте строку'); read (a); if (a='город минск')then writeln ('город минск')elsebeginwriteln ('введите "город минск", 1-продолжить, 0-выйти'); read (b); end; end;

end.