Var a:array [1..10] of integer;
i,k1,k2:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(20,100);
writeln(a);
for i:=1 to 10 do
if a[i] mod 2 = 0 then k1:=k1+1
else k2:=k2+1;
writeln('Чётных элементов: ',k1);
writeln('Нечётных элементов: ',k2)
end.
1.25× 1024= 1280
1280×8=10240 бит
Ответ:10240 бит
Var ma,kol,bol,n,x,i:integer;beginread(n);for i:=1 to n do begin read(x); if x<30 then inc(bol); if x>ma then ma:=x; end;writeln(ma);if bol>0 then writeln('YES') else writeln('NO'); end.
А - наличие свободного времени
В - наличие дождя на улице
С - поход на вечеринку
_
А*В=С
_ _
А В В А*В С
0 0 1 0 <span> 0
</span>0 1 0 0 <span> 0
</span>1 0 1 0 <span> 0
</span>1 1 0 1 <span> 1</span>