Хабарлама қуаты 16символға тең алфавит көмегімен жазылған. хабарламаның ақпараттық салмағы 1/8Кбайтты кұрайды. осы хабарламадағы символдар санын анықта
program 1; var a:array[1..10] of integer; i,q,max,min,l,k:integer; begin randomize; for i:=1 to 10 do begin a[i]:=random(100); write(a[i]:3); end; writeln; for i:=1 to 10 do if (a[i]>q) and (a[i]<l) then inc(k); writeln('k=',k); end.
2.
program 2; var a:array[1..10] of integer; i,max,min,k,l:integer; begin randomize; for i:=1 to 10 do begin a[i]:=random(100); write(a[i]:3); end; writeln; max:=a[1]; min:=a[1]; for i:=2 to 10 do begin if a[i]>max then begin max:=a[i]; k:=i; end; if a[i]<min then begin min:=a[i]; l:=i; end; end; writeln('max=',max,', его индекс=',k,', min=',min,', его индекс=',l); end.
program xxx; var i, j, k, n, p, s : integer; a : array [1..20] of integer; begin write ('введите количество инверсий -'); readln(k); write ('введите количество ламп -'); readln(n); for i:=1 to n do a[i]:=0; for i:=1 to k do begin write ('введите инверсию P-'); readln(p); j:=p; while j<=n do begin if a[j]=0 then a[j]:=1 else a[j]:=0; j:=j+p end end; s:=0; for i:=1 to n do if a[i]=1 then s:=s+1; write ('Ламп горит -', s); readln end.
программу написала в паскале, надеюсь подходит))
program 1;
var a:array[1..10] of integer; i,q,max,min,l,k:integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(100);
write(a[i]:3);
end;
writeln;
for i:=1 to 10 do
if (a[i]>q) and (a[i]<l) then inc(k);
writeln('k=',k);
end.
2.
program 2;
var a:array[1..10] of integer; i,max,min,k,l:integer;
begin randomize;
for i:=1 to 10 do
begin
a[i]:=random(100);
write(a[i]:3);
end;
writeln;
max:=a[1];
min:=a[1];
for i:=2 to 10 do
begin
if a[i]>max then
begin max:=a[i]; k:=i; end;
if a[i]<min then
begin min:=a[i]; l:=i; end;
end;
writeln('max=',max,', его индекс=',k,', min=',min,', его индекс=',l);
end.
program xxx;
var i, j, k, n, p, s : integer;
a : array [1..20] of integer;
begin
write ('введите количество инверсий -');
readln(k);
write ('введите количество ламп -');
readln(n);
for i:=1 to n do
a[i]:=0;
for i:=1 to k do
begin
write ('введите инверсию P-');
readln(p);
j:=p;
while j<=n do
begin
if a[j]=0 then a[j]:=1 else a[j]:=0;
j:=j+p
end
end;
s:=0;
for i:=1 to n do
if a[i]=1 then s:=s+1;
write ('Ламп горит -', s);
readln
end.