59
В F и G по 6 переменных, значит по 64 строки. Из них 10 строк одинаковые, значит 54 разные( в F стоит 0, а в G-1 или в F-1, а в G-0). <span> F \/ G будет в этих 54 </span>равно 1 и в 10 где 1 (5 строк) тоже. Полуаем 54+5=59.
12) var A: array[1..7] of integer;
k: integer;
begin
randomize;
for k := 1 to 7 do
A[k] := random(5);
write("vvedite den' nedeli: ");
readln(k);
if (k < 1 or k > 7) writeln("error");
else if ( A[k] <> 0) then writeln("segodnya urokov: ", A[k]);
else write("vyhodnoy");
end.
13) var k: real;
begin
write("vvedite chislo: ");
readln(k);
if (k > 0) then write("polozhitel'noe, ");
else if (k < 0) then write("otricatel'noe, ");
else write("nol', ");
if (k mod 1 <> 0) then write("neceloe, ");
else write("celoe, ");
if (k mod 2 <> 0) then writeln("nechetnoe");
else writeln("chetnoe");
end.
<span>Информационное сообщение объемом 300 бит содержит 100 символов. Какова мощность алфавита?<span> <span>Дано:Объем сообщения = 300 бит
текст состоит из 100 символов
Какова мощность алфавита?</span></span>Решение:1. Определим вес одного символа: 300 / 100 = 3 бита.2. Мощность алфавита определяем по формуле: 2 3 = 8.</span>
Чудик какой-то ) даже не знаю что это? или кто это ?
Program ttt;
var i:integer;
begin
for i:=0 to 17 do
writeln(i);
end.
