Var N : Longint; s : Set of Byte; F : Boolean; Begin s:=[]; F:=False; Readln(N); While (N>0) and not F do If not ((N mod 10) in s) then Begin Include(s,N mod 10); N:=N div 10; end else F:=True; Writeln(F); end.
По сравнению с просмотром кино, при работе на компьютере мы сосредатачиваемся на более мелких областях и более внимательно, а не смотрим на весь экран в целом. Так же к монитору мы сидим куда ближе чем к телевизору. Потому мигание и прочие деформации картики становятся более заметными. Потому так ценится плотность пикселей и цветопередача монитора. Например плотность пикселей в современных смартфонах и планшетах обычно выше чем у мониторов, потому что мы смотрим на них еще с более близкого растояния чем на мониторы. Надеюсь все выше сказанное дает понять причину увиличения частоты обновления Сама же настройка этой частоты зависит от самого монитора и тп
N : Longint;
s : Set of Byte;
F : Boolean;
Begin
s:=[]; F:=False;
Readln(N);
While (N>0) and not F do
If not ((N mod 10) in s) then
Begin
Include(s,N mod 10);
N:=N div 10;
end else F:=True;
Writeln(F);
end.