Зачеркните лишнее слово,присуствуйщее в каждой строке. напишите лишнее слово. ответы подномируйте. 1) - id203507920201109 от аааааа333 09.11.2020 22:25

Question

Информатика: Зачеркните лишнее слово,присуствуйщее в каждой строке. напишите лишнее слово. ответы подномируйте. 1) тибет, кавказ,альпы, байкал. 2)россия, франция, петербург, китай. 3) африка, индия, австралия, южная, америка. 4) брюки, хлопоты, дверцы, вилы. 5) дебри, прения, игры, шахматы 6)носок, мозоль, георгин, помидор 7) магистраль, вестибюль, бандероль, лазурь

аааааа333 · Accepted Answer

Uses GraphABC;
var a,b,c:array[10..99] of integer;
ast,bst,cst:string;
i:integer;
begin
ast:='A:';
bst:='Б:';
cst:='В:';
for i:=10 to 99 do
begin
c[i]:=i;
a[i]:=c[i]-i+random(50);
b[i]:=c[i]-a[i];
ast:=ast+' '+inttostr(a[i]);
bst:=bst+' '+inttostr(b[i]);
cst:=cst+' '+inttostr(c[i]);
end;
setpencolor(clRed);
line(0,0,150,0);
line(150,0,75,50);
line(75,50,0,0);
rectangle(0,50,150,300);
DrawTextCentered(0,50,150,300,ast);
setpencolor(clYellow);
line(150,0,300,0);
line(300,0,225,50);
line(225,50,150,0);
rectangle(150,50,300,300);
DrawTextCentered(150,50,300,300,bst);
setpencolor(clGreen);
line(300,0,450,0);
line(450,0,375,50);
line(375,50,300,0);
rectangle(300,50,450,300);
DrawTextCentered(300,50,450,300,cst);
end.

MOGZ ответил