Чи можуть команди тіла циклу з лічильником не
виконуватись жодного разу?

Відповідь:

Так.

Пояснення:

Адже, якщо умова при якій цикл виконується буде не дійсною, то команди тіла циклу не будуть виконуватись!

writeln('a[',i,']=',a[i]);

readln;

end.

var x,i,x1,x2,x3: integer

s: string;

begin

  read(x);

  s: =str(x);

  x1: =int(s[1]);

  x2: =int(s[2]);

  x3: =int(s[3]);

  if (x1+x3)mod x2=0 then writeln("да")

  else writeln("нет");

end.