К=2^i
K=13
13=2^i
i=4, т.к. 3 недостаточно
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
var
n,k,nmax:integer;
begin
nmax:=-1;
repeat
Read(n);
if n<>0 then begin
if n mod 7 = 0 then begin
if n>nmax then begin k:=1; nmax:=n end
else
if n=nmax then Inc(k)
end
end
until n=0;
Writeln('Число ',nmax,' встретилось ',k,' раз(а)')
end.
<u><em>Тестовое решение:</em></u>
8 11 5 7 4 23 14 82 51 14 23 17 0
Число 14 встретилось 2 раз(а)
<span>Минимальный объем дискового пространства,выделяемый для хранения файла, называется БИТ</span>
const n=10;
var
x: array [1..n] of integer;
kmax,k, smax : integer;
begin
randomize;
smax:=-99;
for k:=1 to n do
begin
x[k]:=random(70)-35;
write(x[k],' ');
if x[k]>smax then
begin
smax:= x[k];
kmax:=k;
end;
end;
writeln();
writeln(smax);
writeln(kmax);
end.