// PascalABC.NET 3.3
begin
var a:=ReadSeqIntegerWhile(x->x<>0).ToArray;
Print(a.Count,a.Where(x->(x mod 2<>0)and(x mod 3=0)).Count);
end.
Пример:
20 87 15 46 61 0
5 2
<span>b) Клавиатура, сканер, микрофон, мышь</span>
Ответ:
67,5
Объяснение:
N=2^i
512=2^i
i=9 (цвет можно закодировать 9 битами)
200*300*9=540000 бит=67500 байт=67,5 кб
uses crt;
var
i:integer;
begin
clrscr;
for i:=1 to 25 do writeln ('информатика');
readkey;
end.
Такая зелененькая?
А на фоне этого дельфин?
Он называется Dolphin Browser.