var a:array[1..10,1..15]of integer;
i,j,n,x:integer;
begin
for i:=1 to 10 do for j:=1 to 15 do a[i,j]:=random(101);
for i:=1 to 10 do begin for j:=1 to 15 do write(a[i,j],' '); if j=15 then writeln; end;
readln(x);
for i:=1 to 10 do for j:=1 to 15 do
if a[i,j]=x then inc(n);
writeln(n);
end.
var a:array[1..10,1..15]of integer;
i,j,k:integer;
begin
for i:=1 to 10 do for j:=1 to 15 do a[i,j]:=random(101);
for i:=1 to 10 do begin for j:=1 to 15 do write(a[i,j],' '); if j=15 then writeln; end;
for i:=1 to 10 do for j:=1 to 15 do
if a[i,j] mod 2=0 then inc(k);
writeln(k);
end.
Не имеет значения на каком этаже живет друг, нам важно, что сообщение несёт 5 бит. Тогда по формуле 2^i=N получаем - 2^5=32
В доме 32 этажа.
А и в
Т.К. в системе счисление с 3 нет числа 4 ,а в 8 и 16 есть
Алгоритм 21211
вычти 1: 27-1=26
раздели на 2: 26/2=13
вычти 1: 13-1=12
раздели на 2: 12/2=6
раздели на 2: 6/2=3
Ответ: 21211
uses
GraphABC;
var
bool: string;
circle: byte;
begin
Line(window.Center.X, window.Center.Y, window.Width - 10, window.Center.Y);
repeat
circle += 1;
writeln('Бежим...');
for i: byte := 0 to 11 do
begin
arc(window.Center.X, window.Center.Y, circle * 2 + 20, i * 30, (i + 1) * 30);
System.Threading.Thread.Sleep(20);
end;
writeln('Пробежишь ещё кружочек?');
repeat
readln(bool);
if (bool in ['да', 'нет']) then
break
else
writeln('Что?! Я не расслышал!');
until (false);
until (not (bool = 'да'));
Writeln('Молодец! За столько кругов можно и на марафон... А пробежал ты... ', circle, '!');
end.
