Const
n=5;
Var
ar:array[1..n] of integer;
ar2:array[1..n] of integer;
i,k:integer;
function prost(a:integer):boolean;
var i:integer;
b:boolean;
begin
b:=true;
for i:=2 to a div 2 do
if a mod i=0 then
begin;
b:=false;
break;
end;
if a=1 then b:=false;
prost:=b;
end;
begin;
randomize;
k:=0;
for i:=1 to n do
begin;
ar[i]:=random(101);
write(ar[i]:4);
end;
writeln;
for i:=1 to n do
if prost(ar[i]) then
begin;
inc(k);
ar2[k]:=ar[i];
write(ar2[k]:4);
end;
end.<span>
</span>
Const
n = 40;
var
s,i,ind,k1,k2: integer;
mas: array[1..n] of integer;
begin
s := 0;
for i:=1 to n do s := s+ mas[i];
Writeln ('сумма элементов массива: ',s);
s := 1;
for i:=1 to n do s := s * mas[i];
Writeln ('произведение элементов массива: ',s);
s := 0;
for i:=1 to n do s := s + mas[i]*mas[i];
Writeln ('сумма квадратов элементов массива: ',s);
s := 0;
for i:=1 to 6 do s := s+ mas[i];
Writeln ('сумма первых 6 элементов массива: ',s);
ind:=0;
repeat
Writeln('Введите К1: '); read(k1);
Writeln('Введите К2: '); read(k2);
if (k2>k1) then ind := 1;
until (ind=1);
s := 0;
for i:=k1 to k2 do s := s+ mas[i];
Writeln ('сумма элементов массива с k1-го по k2-й: ',s);
end.
Решение:
1 килобайт = 1024 байт
5*1024=5120 байт
Ответ: буква г)
A:\TEST\INF\MY так как пользователь последовательно идёт к корню диска "А"
Формула : A-->B = отрицаниеA + B ( + 'это логическое сложение ∨)
X^2≤ 121 + X> X+5 = 1 - истина
X=11 : 11≤121 + (11> 16) =1 - верно!
X=12: 12≤121 + (12> 16) = 1 - неверно!
Ответ: X=11