Ответ 4 это кратчайший путь от пункта А до пункта Е
Ошибка <span>Меркурий</span> т.к все слова на английском ,а это на русском
PascalABC.NET
Программа считает число нулей стоящих на четных местах в строке, считая первый элемент строки нечетным.
var
t : text;
a,k,i : integer;
begin
assign (t,'File.txt');
reset (t);
i := 0; k := 0;
While not Eof (t) do
begin
i := 0;
While not Eoln (t) do
begin
read (t,a);
if (a = 0) and (i = 1) then
k := k +1;
if i = 0 then
i := 1
else
i := 0;
end;
readln (t);
end;
close (t);
writeln (k);<span>
end.</span>
5 символов в распоряжении
По формули хартли
N=2^i
5<2^3
I=3
Это столько бит весит 1 символ.
3*15= 45 бит на пароль, но нудно в байтах ,
=6 байт на пароль(8бит-1 байт)
6*30 паролей=180
Ответ : 180
Var n,p,k,i,j:integer; f:boolean;
begin
write('n = ');
readln(n);
p:=2;
for i:=2 to n do
begin
f:=false;
while not f do
begin
p:=p+1;
k:=0;
for j:=2 to round(sqrt(p)) do
if p mod j = 0 then k:=k+1;
f:=k=0;
end;
end;
writeln(p);
end.
Пример:
n = 25
97