Если(условие)
{
команды
}
Если условие истинно, то выполняются команды, иначе же(если условие ложно), они не выполнятся.
Var a:array[1..18] of integer;
s,i,x,n:integer;
begin
for i:=1 to 18 do a[i]:=0;
readln(n);
for i:=1 to n do begin
readln(x);
s:=x mod 10;
x:=x div 10;
s:=(x mod 10)+s;
a[s]:=a[s]+1;
end;
s:=1;
for i:=2 to 18 do if a[i]>=a[s] then s:=i;
writeln(s);
end.
Задача № 6
var r:array[1..100,1..100] of integer;i,j,n,k,sum:integer; sr:real;
beginrandomize;write('Введите n: ');readln(n);
writeln('Исходная матрица: ');for i:=1 to n dobeginfor j:=1 to n dobeginr[i,j]:=random(10);write(r[i,j]:4);end;writeln;end;writeln;for i:=1 to n dobeginfor j:=1 to n dobeginif i=j then beginwrite(r[i,j]:4);sum:= sum + r[i,j];end elsewrite(' ':4);end;writeln;end;sr:= sum / n;writeln;writeln('sr:=', sr);
writeln;for i:=1 to n dobeginfor j:=1 to n dobeginif sr < r[i,j] thenk:= k + 1;end;end;writeln('k:=', k);end.
В рулетке общее количество лунок 64=2^6=> 6 бит*1 лунка=6<span>
3) 3 Кбайт = 3*2^10байт =3*2^10/2^3 бит=3*2^7 бит
4)8 Мбайт= 2^3*2^20 байт=2^23 байт</span>
2^9 = 512 . Следовательно,чтобы закодировать 512 номеров страниц нужно 9 бит. Информация о местоположении закладки содержит 9 бит.