Question

составить программу которая находит количество натуральных чисел которые не делятся ни на одно из чисел 2,7,11

Answer 1

var
  s, k, err: integer;
  str: string;
begin
  writeln('Введённая пустая строка (без каких-либо символов) считается концом последовательности и, собственно, завершает выполнение программы, как бы говоря ей: "Эй, подруга! Выведи-ка количество чисел, не делящихся ни на два, ни на семь, ни на одиннадцать!"');
  while (true) do
  begin
    readln(str);
    val(str, k, err);
    if (err > 0) then break;
    if ((k mod 2 = 0) and (k mod 7 = 0) and (k mod 11 = 0)) then
      inc(s);
  end;
  writeln(s);
end.

Answer 2

Это только администратор может сказать.

Answer 3

По программе. Там есть описка, оператор вывода s нужно местами с end поменять, иначе он отработает только один раз по завершении программы. Что до пустой строки - у меня в Pascal.ABC.NET она нормально завершает работу.