1.<ctrl>+<w>
2.window.close(); в консоли
3.СКМ и по значку вкладки или по крестику ЛКМ
1.var i,a:integer;begina:=1;while(a<>0) do beginreadln(a);if a<0 then i:=i+1;end;writeln(i);readln;
end.
2.var dd,mm,gg,hh,min:integer;begin randomize;dd:=random(31)+1;mm:=random(12)+1;gg:=random(11)+2000;hh:=random(24);min:=random(60);write(dd);write('/');write(mm);write('/');write(gg);write(' ');write(hh);write(':');write(min);readln;
end.<span>
</span>
Скачать visual basic , и написать
Пусть Х - количество черных автомобилей
У - количество серых
Рч = x/(x+y+18)
= 128
x+y+18 = 128x (1)
P(не серый) = (х+18)/(x+y+18)
= 32
x+y+18 = 32x+576 (2)
из того что, левые части выражений (1) и (2) равны, следует что равны и правые части, получим
128х=32х+576
96х = 576
х=6
Ответ: 6 черных автомобилей
///////////////////////////////////