Всем привет
По информатике
6 класс даю 20 баллов
Пж

А. a=0, b=1, c=0, d=o
б. a=1, b=0, c=0, d=1
в. a=0, b=1, c=0, d=o
г. a=1, b=1, c=1, d=o
д. a=1, b=0, c=0, d=o
е. a=0, b=0, c=1, d=1

А у тебя какой учебник? В каком классе?

Program pr;
Var a, b, c:array [1..20] of integer;
    i, c1, c2:integer;
begin
  for i:=1 to 20 do read(a[i]);
  for i:=1 to 20 do
    if i mod 2 = 0 then begin
      b[c1]:=a[i];
      Inc(c1);
    end
    else begin
      c[c2]:=a[i];
      Inc(c2);
    end;
  for i:=1 to 20 do write(b[i], );
  for i:=1 to 20 do write(c[i], );
end;

1. они бы делали все максимально честно , ибо один из них мог бы обидеться

2 да по тому что учеником 15 и месяцев 12

3 скорее всего нет