5. Из приведенных объектов укажите биогеоценоз.1) совокупность особей березы в лесу 2) популяция березы обыкновенной3) березовый пень с населяющими...
5. Из приведенных объектов укажите биогеоценоз.1) совокупность особей березы в лесу 2) популяция березы обыкновенной3) березовый пень с населяющими...
5. Из приведенных объектов укажите биогеоценоз.1) совокупность особей березы в лесу 2) популяция березы обыкновенной3) березовый пень с населяющими...
5. Из приведенных объектов укажите биогеоценоз.1) совокупность особей березы в лесу 2) популяция березы обыкновенной3) березовый пень с населяющими...
5. Из приведенных объектов укажите биогеоценоз.1) совокупность особей березы в лесу 2) популяция березы обыкновенной3) березовый пень с населяющими...
5. Из приведенных объектов укажите биогеоценоз.1) совокупность особей березы в лесу 2) популяция березы обыкновенной3) березовый пень с населяющими...
5. Из приведенных объектов укажите биогеоценоз.1) совокупность особей березы в лесу 2) популяция березы обыкновенной3) березовый пень с населяющими...
5. Из приведенных объектов укажите биогеоценоз.1) совокупность особей березы в лесу 2) популяция березы обыкновенной3) березовый пень с населяющими...
ммм5. Из приведенных объектов укажите биогеоценоз.1) совокупность особей березы в лесу 2) популяция березы обыкновенной3) березовый пень с населяющими...
↓↑∴⊃÷
Объяснение:
Поделитесь своими знаниями, ответьте на вопрос:
var n, n1, d, d1: Integer;
b: Boolean;
begin
write('Введите число n; n>9: ');
readln(n);
b:= false;
while (n>9) and (not b) do
begin
d:= n mod 10;
n1:= n div 10;
while (n1>0) and (not b) do
begin
d1:= n1 mod 10;
b:= d1 = d;
n1:= n1 div 10;
end;
n:= n div 10;
end;
if b then writeln('Да')
else writeln('Нет');
end.