1 - 33
2 - 98
3 - 61
4 - <span>111011
5 - 8
6 - </span><span>76C
7 - </span><span>111010101</span><span>
8 - 72
9 - 4C</span>
1)var a,b,i:integer;
begin
readln(a,b);
for i:= 1 to 100 do
if (i mod a<>0) and (i mod b<>0) then write(i,' ')
<span> end.
2)</span>var a,b,i,k:integer;
begin
readln(a,b);
k:=0;
for i:= a to b do
if (i mod 7=0) xor (i mod 9=0) then k:=k+1;
write(k)<span>
end.
3)</span>var pol,i,otr,a:integer;
begin
otr:=0;
pol:=0;
for i:= 1 to 10 do
begin
readln(a);
if a>0 then pol:=pol+1;
if a<0 then otr:=otr+1
end;
if pol>otr then write('Положительных больше');
if otr>pol then write('Отрицательных больше')<span>
end.
4) </span>var i,a,b:integer;
begin
readln(a,b);
for i:= a to b do
if (i mod 3 =0) or (i mod 7=0) then write(i,' ',i,' ') else write(i,' ')
<span>end.</span>
О том, какими возможностями обладают вычислительные машины.
Как быстро они могут считывать информацию, обрабатывать, в сотни раз быстрее человека.
Единственное о чем следуют помнить - компьютер выполнят команды, задаваемые человеком. Соответственно именно поэтому они и не смогут "Захватить мир", как об этом рассказывают в фильмах ;)
Дано:
2стр
60строк
i=8бит
найти iбольшую-I
решение:
I=2*60*80=9600бит их надо перевести в байты чтобы потом перевести в килобайты=>9600/8=1200байт=1200*8/1024=9,375кбайт
вроде так)
