В 1965 году, не уверенна на 100 проц, но все же
Uses GraphABC;
begin
Window.Height:=600;
Window.Width:=800;
var y:=10;
while y<Window.Height do begin
Line(10,y,790,y);
y+=10
end;
var x:=10;
while x<Window.Width do begin
Line(x,10,x,590);
x+=10
end;
Randomize;
Pen.Color:=clRed;
Pen.Width:=3;
x:=Window.Width div 2;
x:=10*Round(x/10);
y:=Window.Height div 2;
y:=10*Round(y/10);
MoveTo(x,y);
repeat
case Random(1,4) of
1:LineTo(PenX+10,PenY);
2:LineTo(PenX,PenY-10);
3:LineTo(PenX-10,PenY);
4:LineTo(PenX,PenY+10);
end;
Sleep(100);
until false;
end.
1. <span>Чтобы погода была солнечной достаточно чтобы не было ни ветра ни дождя.
Выделим простые утверждения: А=нет ветра; В=нет дождя; С=погода солнечная.
A & B → C
2. Люди получают высшее образование тогда,когда они заканчивают институт, университет или академию.
</span>Выделим простые утверждения: A - человек закончил институт; B<span> - человек закончил университет; С</span><span><span> - человек закончил академию; </span>D - человек получает высшее образование.
</span>A | B | C <span>→ D</span>
Решение во вложении
Ответ 4
Если что не понятно - спрашивайте