var
a,b,i,S:integer;
x: array[1..100] of integer;
begin
for i:=1 to 31 do
begin
x[i]:=random(1001);
write(x[i]:4);
end;
writeln;
readln(S);
writeln;
for i:=1 to 31 do
begin
if x[i]>S then
write(i:4);
end;
end.
var
a, b, c:integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
write('НОД(', a, ', ', b, ', ', c, ') = ');
while (a <> 0) and (b <> 0) do
if a >= b then
a := a mod b
else
b := b mod a;
a := a + b;
while (c <> 0) and (a <> 0) do
if a >= c then
a := a mod c
else
c := c mod a;
writeln(a + c);
end.
Ответ:
Надо было нажать ети англ. символь на руской раскладке
Объяснение:
Сегодня на ужин у нас лосось
В алфавите 124 буквы.
124 не является квадратом двойки, нужно найти ближайшее число, большее чем 124 но являющееся квадратом двойки. (Если число будет меньше, то для записи некоторых букв алфавита просто не хватит символов.)
бит.
Ответ: одна буква несёт в себе информацию, равную 7ю битам.