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.
1.Поиск учебника.
2.Открытие учебника.
3.Осмотр параграфа в дневнике,который нужно выучить в учебнике.
4.Открытие нужного параграфа.
5.Чтение параграфа от начала и до конца.
6.Вслух рассказать про то,что прочитал.
7.Перечитать параграф еще раз.
8.Закрыть учебник.
101110=1*2^5 + 1*2^3 + 1*2^2 + 1*2= 32+8+4+2=46
621=6*8^2 + 2*8 + 1= 384+16+1=401
64C= 6*16^2 + 4*16 +12=1536+64+12=1612