пароль не должен быть датой рождения родственника поэтому 3 вар. отпадает.2 вар. не самый надёжный пароль.1 вар. самый походящий по безопасности.
<em>// PascalABC.NET 3.2, сборка 1425 от 22.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrFill(ReadInteger('n='),0);
a[0]:=1; a[a.Length-1]:=1; a.Println;
end.
<u>Пример</u>
n= 10
1 0 0 0 0 0 0 0 0 1
Var a,k,i:integer;
s:real;
begin
s:=0;
k:=0;
for i:=1 to 7 do
begin
readln(a);
s:=s+a;
if a>0 then
inc(k);//<span>сколько раз в неделю температура была выше нуля
</span>end;
s:=s/7;//средняя температура.
end.
Якщо всі підписи неправильні, то потрібно взяти кульку з коробки, на якій написано "Одна червона, она зелена". Обидві кульки будуть однакового кольору. Далі, у коробці, колір якого витягнули, також будуть дві кульки однакового кольору. Кульки різного кольору будуть у третій коробці.