Решите распишите как решали! на столе лежат в ряд фигуры: треугольник, ромб, круг и квадрат. цвета этих фигур - зеленый, чёрный, синий, красный. фигура красного цвета лежит между зеленой и синей, справа от чёрной фигуры лежит ромб, круг лежит правее треугольника и ромба, причем треугольник лежит не с краю и, наконец, фигура синего цвета не лежит рядом с фигурой чёрного цвета. какого цвета круг?

Фигура красного цвета либо вторая, либо третья справа, с краю она быть не может, так как по обеим сторонам от нее должны быть фигуры. следовательно, фигура черного цвета лежит на краю. так как справа от нее лежит ромб, черная фигура лежит первой слева. круг лежит правее треугольника и ромба, то есть третьем слева, раз треугольник не лежит с краю, там находится ромб. тогда ромб черный, квадрат синий, так как не лежит рядом с ромбом, рядом с ромбом находится зеленый треугольник, а круг - красный, так как лежит между фигурами зеленого и синего цвета.

Const n=10; var a: array [1..n] of string;     b: array [1..n] of integer;     c: array [1..n] of string;     i,j: integer; begin  randomize;   for i: =1 to n do    readln(a[i]);   for i: =1 to n do    b[i]: =random(4)+1;   for i: =1 to n do    begin      if b[i]> 2 then      begin        c[i]: =a[i];         write(c[i],'-',b[i],' ');       end;     end;     readln; end.

1.

for  i := 1 to 20 do

   writeln(i);

В данном фрагменте никаких ошибок нет, все правила написания кода соблюдены, на экран выведутся числа от 1 до 20(каждое на новой строке)

2.

for i := 2 to 20 do

   i := i + 1;

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

3.

for  i := 2 to 20 do

   readln(i);

Этот фрагмент тоже даст ошибку, потому что переменная i уже объявлена в заголовке, а в теле цикла мы пытаемся ей задать значение с клавиатуры.

4.

for  i := 2 to 20 do

   A := i * i;

Этот фрагмент не вызовет ошибок, если переменная "A" у нас будет объявлена, каждый проход цикла мы будем переменной A присваивать значение . По сути, такая реализация не имеет смысла, потому что в конце мы получим просто значение A = , так как каждый проход значение заменяется следующим.