построить электронную схему исходя из логического выражения. А также найдите выходные данные с таблицы истинности
234
293
Ответы на вопрос:
uses GraphABC;
var i:byte;
begin
SetWindowHeight(500);
SetWindowWidth(500);
for i:=10 downto 1 do
if i=1 then
begin
SetBrushColor(clRed);
circle(250,250,25*i);
end
else
circle(250,250,25*i);
end.
Популярно: Информатика
-
ayupovailinaozhaxj04.05.2021 20:52
-
Elena20720730.12.2022 15:17
-
Roma9981203.12.2021 08:51
-
нарешатор30.05.2022 00:04
-
kudadiana310108.10.2022 06:00
-
dbarkhatova09.12.2021 23:48
-
medovd20.12.2022 10:55
-
Ромб11109.03.2022 05:10
-
eandrukova56714.07.2020 06:53
-
Adiya123456718.04.2021 06:55