<span>сбой в OpenGL. Посмотрите что в автозапуске через msconfig.</span>
Выражение <span>((Y > 1) -> (Y > 5)) можно переписать как !(Y>1) V (Y>5), т.е. </span>(Y≤1) V (Y>5), следовательно Y∈(-∞;1] V (5;+∞)
Выражение Y<5 инстинно при Y∈(-∞;5)
Все выражение будет истинно, когда истинны оба рассмотренные выше подвыражения, тогда условия следует объединить. Y∈(-∞;1]
Из перечисленных вариантов подходит только 1
Var A:array[1..5] of Integer;
j,l,i,k,N:integer;
begin
Readln(N);
While not(N=0) do
begin
k:=k+1;
A[k]:=N mod 10;
N:=N div 10;
end;
For i:=1 to min(3,k) do
begin
N:=A[i];
l:=0;
For j:=1 to k do
If N=A[j] then
l:=l+1;
If l>=3 then
begin
Writeln('В записи есть три одинаковых чисел');
l:=20;
break;
end;
end;
If not(l=20) then
Writeln('В записи нет трех одинаковых чисел');
end.