Var n, s:string;
i:byte;
begin
read(s);
n:='';
for i:=1 to length(s) do
if s[i]<>',' then n:=n+s[i];
write(n);
end.
Файлы формата zip открываются архиваторами. Такими как 7-zip, WinRAR, WinZIP, и т.д.
Если же вас просят ввести пароль, а вы его не знаете то можно воспользоваться программами для подбора пароля, но это может занимать длительное время.
А - 11
Б - 10
Уже числа, который начинаются с единицы мы взять не можем, потому что условие Фано не будет выполняться.
Возьмём с нулём.
С - 000
Д - 001
Е - 011
Ф - 010
3 * 4 = 12
Ответ: 12
Var d:array[1..10] of integer;
s,i:integer;
Begin
s:=1;
For i:=1 to 10 do
begin
readln(d[i]);
If d[i]<>0
Then S:=S*d[i];
end;
Writeln(S);
end.