Номер 2.
uses GraphABC;
begin
circle(300,200,100);
circle(300,200,90);
circle(300,200,80);
circle(300,200,70);
circle(300,200,60);
circle(300,200,50);
circle(300,200,40);
circle(300,200,30);
circle(300,200,20);
circle(300,200,10);
<span>end.
Номер 1.
uses GraphABC;
begin
circle(25,100,25);
circle(75,100,25);
circle(125,100,25);
circle(175,100,25);
circle(225,100,25);
circle(275,100,25);
circle(325,100,25);
circle(375,100,25);
circle(425,100,25);
circle(475,100,25);
circle(525,100,25);
circle(575,100,25);
<span>end.</span></span>
1) Я в Excel не очень разбираю, но считаю, что ответ "Б" эквивалентен ответу "Г"
2) Начиная из клеток вариантов "А" и "Б" робот упирается в стену во время выполнения алгоритма. Начиная из клетки A5 робот выйдет за пределы поля, а начиная из клетки D5, робот перейдет 6 раз. => Ответ: "В".
3) Выражение <span>(¬ А ~ В) ∧ С ∨ А ∧ (С ~ В)
</span>//PascalABC.Net 3.2
<span />//выход(ответ): 4568
<span />var
<span />s:string;
<span />a, b, c: boolean;
<span>
function f(n: integer):boolean;
begin
case n of
1 : s:='к';
2 : s:='к';
3 : s:='кт';
4 : s:='кп';
5 : s:='кп';
6 : s:='п';
7 : s:='ктп';
8 : s:='п';
9 : s:='пт';
10: s:='кт';
11: s:='т';
end;
a:='к' in s;
b:='т' in s;
c:='п' in s;
result:=(not a and not b) and c or a and (c and not b);
end;
begin
for var i:=1 to 11 do if f(i) then write (i);
end.</span>