Var
i:integer;
a:array [1..8] of real;
begin
randomize;
for i:=1 to 8 do
begin
a[i]:=8+ Random;
writeln(a[i]:0:2);
end;
end.
Моя папка - это хобби, школа, музыка, картинки, видеозаписи.
Если знаешь только стандартную(10тичную) таблицы умножения-сложения, то работай через неё
10h=16
10(8)=8
10b=2
Поэтому выражение равно 16+8*2=32=2^5=10 0000b
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=70;
var a:=ArrRandom(n,0,2); a.Println;
Writeln('Количество нулей на нечетных местах: ',
Range(0,n-1,2).Select(i->a[i]).Where(t->t=0).Count)
end.
<u>Пример</u>
0 2 1 2 2 0 2 1 2 2 2 2 1 1 2 2 2 2 1 2 2 2 0 2 0 0 2 0 2 0 0 2 2 0 2 1 1 0 0 2 0 2 0 1 2 2 0 2 0 0 2 0 2 1 1 0 2 1 2 1 0 2 1 2 1 0 0 1 2 1
Количество нулей на нечетных местах: 11
- - - - - - - - - -
begin
var n:=35;
var a:=ArrRandom(n,0,2); a.Println;
Writeln('Количество единиц на четных местах: ',
Range(1,n-1,2).Select(i->a[i]).Where(t->t=1).Count)
end.
<u>Пример</u>
1 2 0 0 1 1 2 1 1 1 0 2 1 2 2 1 1 1 0 1 0 0 2 2 2 1 2 1 2 2 1 2 0 1 1
Количество единиц на четных местах: 9