var x,s,p:integer;
begin
p:=1;
while s<300 do begin
readln(x);
if x mod 3=0 then p:=p*x;
s:=s+x;
end;
if p<>1 then writeln(p) else writeln('0');
end.
Program kvart;
var k: real;
begin
k:=4500; // известно что квартплата 4500
k:=k*1.3; //мы увеличиваем на 30 %
k:=k*1.4; // новую квартплату мы увеличиваем ещё на 40 %
write(k); // выводим значение новой квартплаты
<span>end.
Можно организовать ввод квартплаты тогда вместо строки k:=4500;
мы напишем readln(k);</span>
1)
program gt;
var a,b:array[1..100]of integer;
n,m,i,q:longint;
begin
Randomize;
q:=0;
for i:=1 to 10 do
begin
a[i]:=random(200)-100;
if(a[i]>0)then begin
q:=q+1;
if(q=1)then a[i]:=400;
end;
end;
for i:=1 to 10 do
begin
if(a[i]<>400)then write(a[i],' ');
end;
<span>end.
2)
program gt;
var a,b:array[1..100]of integer;
n,m,i,q:longint;
begin
Randomize;
for i:=1 to 10 do
begin
a[i]:=random(200)-100;
if(a[i]<0)then begin
a[i]:=400;
end;
end;
for i:=1 to 10 do
begin
if(a[i]<>400)then write(a[i],' ');
end;
<span>end.</span></span>
1/16 байт= 1024/16=64 байт
1 страница = 64/4= 16 байт
16 байт=16*8=128 бит
128 бит на 128 символов (одним битой кодируется 2 символа)