Program gt;
var a:array[1..1000]of integer;
n,r,p,s,i:integer;
begin
read(N);
p:=1;s:=0;
for i:=1 to n do
begin
read(a[i]);
if(i mod 2=1)then p:=p*a[i] else s:=s+a[i];
end;
r:=p-s;
writeln(r);
end.
40 строк *60 символов = 2400 символов на одной странице
8 бит = 1 байт
16 Гб= 16* 1024 Мб= 16*1024*1024 кб=16*1024*1024*1024 байт = 17179869184 байта
17179869184 / 2400 = 715878,8 страниц
715878,8 /100 =71583 см
Кажется, так.
Подробнее - на Znanija.com -
znanija.com/task/8906879#readmore
Ответ:
ответ 344(8)
Объяснение:
15(10) * 16(10) + 4(10) = 244(10) = 11110100(2)
D8(16) = 216(10) = 11011000(2)
344(8) = 228(10) = 11100100(2)
11100001(2) = 225(10)
Uses crt;var a:array[1..100] of integer;
b,k,l,i,n:integer;
begin
writeln('Skolko chesel vy bydete vvodit?');
read(n);
for i:=1 to n do begin
write('Vvedite ',i,' chislo: ');
read(a[i]);
end;
for i:=1 to n do begin
b:=a[i] div 100;
k:=a[i] div 10 mod 10;
l:=a[i] mod 10;
if (b mod 2 = 0) and (k mod 2 = 0 ) and (l mod 2 = 0) then writeln(a[i]);
end;
<span>end.</span>
Ну во-первых <span>max:=a[1]; нужно задать после того как массив готов!
а вместо этого
</span>for i:=(1+b) to (n+b) do
begin
if a[i] = max then begin
a[i+1]:=a[i];
a[i]:=-5;
b:=b+1;
end
else
a[i]:=a[i+b];
<span>end;
</span>Попробуй это
b:=-50; for i:=1 to n do<span> if a[i]:=max then a[i]:=a[i]+b;</span>