Оқушыларға қолайлы файл форматтарын таңдауға көмектес: Маратка интернетке бірнеше суретт жүктеу қажет, ал Айнұр презентация жасап, мөлдір фоны бар суреттерді пайдаланғысы келеді. Дұрыс жауап саныс 2 png bmp gif jpg
Есть много разных решения этой задачи. Например: 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.
// PascalABC.NET 3.2, сборка 1363 от 17.12.2016 // Внимание! Если программа не работает, обновите версию!
begin var N:=ArrRandom(50,-111,348); N.Println; Writeln('Произведение элементов, кратных 5, равно ', N.Where(x->x mod 5=0).Aggregate(BigInteger(1),(a,b)->a*b)); if N.Where(x->x.IsOdd).Count>N.Where(x->x.IsEven).Count then Writeln('Нечетных элементов больше') else Writeln('Четных элементов больше') end.
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.