2.Как бы ты объяснил своим одноклассникам то, что узнал об интегрированной среде программирования (IDE)? 4. Почему для изучения программирования был выбран именно язык Python?
Есть много разных решения этой задачи. Например: 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.
Демонстрация позволяет запускать файл в режиме показа слайдов, не запуская 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.