Какой принтер больше подходит для печати цветных фотографий:

струйный цветной
лазерный черно-белый
лазерный цветной
матричный
предыдущий вопрос

#CCCCCC = rgb(204,204,204) серый 
#FFCCCC = rgb(255,204,204) розовый 
#CCCCFF = rgb(204,204,255) светло-синий 
#000066 = rgb(0,0,102) темно синий 
#FF66FF = rgb(255,102,255) светло-пурпурный 
#CCFFFF = rgb(204,255,255) светло-голубой 
#992299 = rgb(154,133,154) темн-пурпурный 
#999900 = rgb(153,153,0) желто-зеленый 
#99FF99 = rgb(153,255,153) светло-зеленый

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var x,z:real;
  for var i:=0 to 18 do begin
    x:=-3+0.5*i;
    if (Abs(x)<>2) and (x<>5) then
      z:=Sqr(sin(x))/(x*x+4)+Sqr(Cos(x))/(x-2)/(x-5);
    Writeln(x:4:1,z:15:8)
    end;
end.

Результат
-3.0     0.02603404
-2.5     0.05396053
-2.0     0.05396053
-1.5     0.15941934
-1.0     0.15783283
-0.5     0.11009307
 0.0     0.10000000
 0.5     0.16817855
 1.0     0.21459633
 1.5     0.16205869
 2.0     0.16205869
 2.5    -0.47852157
 3.0    -0.48851066
 3.5    -0.38218382
 4.0    -0.18498749
 4.5     0.00385685
 5.0     0.00385685
 5.5     0.30151270
 6.0     0.23243357

№2

begin
  var x,z:real;
  x:=-3;
  while x<=6.01 do begin
    if (Abs(x)<>2) and (x<>5) then
      z:=Sqr(sin(x))/(x*x+4)+Sqr(Cos(x))/(x-2)/(x-5);
    Writeln(x:4:1,z:15:8);
    x+=0.5
    end;
end.

№3

begin
  var x,z:real;
  x:=-3;
  repeat
    if (Abs(x)<>2) and (x<>5) then
      z:=Sqr(sin(x))/(x*x+4)+Sqr(Cos(x))/(x-2)/(x-5);
    Writeln(x:4:1,z:15:8);
    x+=0.5
  until x>6.01
end.

1. Переменная цикла for должна иметь тип integer, char, byte -- Крч var x:ingeter или char.
2. По сути ошибки никакой нет, но может быть дело в том, что выводится первое значение i, а не второе. Тогда ошибка в том, что "write(i);" должно быть после "i:=i+2;"
3. Никаких ошибкок не вижу, программа работает и выводит значение "12345678910"
4. Тоже не вижу никаких ошибок программа выводит значение "123456789100"
5. Программа работает. Процесс таков, что к нашему аргументу x прибавляется по одному и так до бесконечности(или же пока x>0)
p.s. Мне кажется, ты забыл что-то уточнить, напиши если что не так.