Демонстрация позволяет запускать файл в режиме показа слайдов, не запуская PowerPoint. Microsoft Office PowerPoint — программа подготовки презентаций, являющаяся частью Microsoft Office. Материалы, подготовленные с предназначены для отображения на большом экране — через проектор, либо телевизионный экран большого размера.Переход на следующий слайд презентации можно сделать нажав левую клавишу мышки или стрелочку вправо на клавиатуре для перехода к следующему слайду либо стрелочку влево для перехода к предыдущему слайду.
Есть много разных решения этой задачи. Например: var n:integer; b:boolean; m:set of 0..9; begin write('n='); readln(n); m:=[]; b:=false; while (n>0) and not b do if n mod 10 in m then b:=true else begin m:=m+[n mod 10]; n:=n div 10; end; if b then writeln('Да') else writeln('Нет'); end.
Пример: n=123432 Да
Вот ещё вариант: var n,m,n1,m1,b:integer; begin write('n='); readln(n); b:=0; while n>0 do begin m:=n mod 10; n:=n div 10; n1:=n; while n1>0 do begin m1:=n1 mod 10; if m=m1 then b:=1; n1:=n1 div 10; end; end; if b=1 then writeln('Да') else writeln('Нет'); end.
