00110101 | 65 | 53 | 35
10001001 | 211 | 137 |89
11100111 | 347 | 231 | E7
00101100 | 54 | 44 | 2C
Вычислял калькулятором "Programmer" в Windows 10.
Var
z,i,p:integer;
m:array[1..21]of integer;
begin
writeln('Массив:');
for i:=1 to 21 do
begin
m[i]:=random(3);
if i mod 3=1 then m[i]:=(i div 3)+1;
write(m[i],' ');
if i mod 3=2 then z:=z+m[i];
if i mod 3=0 then p:=p+m[i];
end;
writeln;
writeln('Всего забито: ',z);
writeln('Всего пропущено: ',p);
<span>end.</span>
Нине кубики Кате шоколадку Коле плюшевого мишку, а Ване книгк