Формулы
1) a+a+a \ 3
2)нужно знать ср. арифм. и 1 число
8+1 = 10 - девятеричная
в восьмеричную - разбиваем на 3 знака
const n=5;
var a: array[1..n] of integer;
i,x,k: integer;
begin
randomize;
write('x=');
readln(x);
k:=0;
write('massiv: ');
for i:=1 to n do begin
a[i]:=random(201)-100;
write(a[i],' ');
if a[i]>x then k:=k+1;
end;
writeln;
write('k=',k);
end.
<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(15,1,100); a.Println;
var k:=0;
for var i:=0 to 14 do
if a[i] mod 7=0 then begin
k+=1; WritelnFormat('A[{0}]={1}',i+1,a[i])
end;
if k=0 then Writeln('Заданных элементов в массиве нет')
end.
<u>Пример</u>
33 15 28 79 56 50 95 24 41 4 64 48 29 27 72
A[3]=28
A[5]=56
А)"2"=111001111
"8"=717
"16"=1CF
б)"2"=10010111001
"8"=2271
"16"=4B9
в)"2"=101101010
"8"=552
"16"=16А
г)"2"=111101010101
"8"=7525
"16"=F55
д)"2"=10110001011011
"8"=26133
"16"=2C5B