Предмет: Другие предметы, автор: Аноним

определи тип почвы

Приложения:

Ответы

Автор ответа: ajsuluzaksylykova029

2

Ответ:

3.песочная почва

2.мокрая почва

1.земленая почва

я так написала и учитель сказал правильно

Предыдущий вопрос

Следующий вопрос

Похожие вопросы

Предмет: Русский язык, автор: lilitmilenan

русский язык Рассмотрите В Картинной галерее учебника репродукцию картины И. И. Левитана Золотая осень (дальше в пояснения) 1.Почему
автор назвал картину "Золотая осень"?Какие краски выбрал художник, чтобы показать "золото" осени?
2.Скажите, какими какими художник изобразил осенний день, небо, реку, деревья, полянки, пригорки, деревушку, дальние поля.
3.Составьте рассказ по плану:
1. Художник И. И. Левитан и его картина.
2.Осенний день.

3.Деревья в золотом наряде.

4.Лесная речка.

5.Моё впечатление о картине.
сочинение пож)

1 год назад

Предмет: Английский язык, автор: любимая1231

перевод с русского на английский слово дверь

1 год назад

Предмет: Английский язык, автор: 55555Алина55555

Помогите пожалуйста....
Put in prepositions if necessary.

1. What kind ____ music do you like to listen __?

2. Do you speak ___any foreign language?

3. We arrived at the station ____ time.

4. They have arranged to go to the theatre ___ 5 p.m.

5. In Oxford I stayed ___ my friend’s family.

6. It happened ____ April.

7. We are a close family and we get ____ well with each other.

1 год назад

Предмет: Биология, автор: Леся123111

Какие бывают приспособления у растений для распространения?

8 лет назад

Предмет: Информатика, автор: Аноним

Помогите разобрать коды что за что отвечает

procedure TForm1.Button1Click(Sender: TObject);
const
n=10;
var
m:array[1..n] of integer;
i,k: integer ;
s: string;
begin
randomize;
i:=0;
while i begin
i:=i+1;
m[i]:=random(10+1);
for k:=1 to i-1 do
if m[k]=m[i] then
begin
i:=i-1;
break;
end;
end;
for i:=1 to n do
s:=s+(IntToStr(m[i])+' ');
Memo1.Lines.Add(s);
end;
end.

procedure TForm1.Button1Click(Sender: TObject);
begin
if messagebox(handle, 'Идем на войну?' , 'Заголовок тактики', mb_iconinformation or mb_yesno) = mryes then
messagebox(handle, 'НАПАДАЕМ' , 'Пойдем на войну', mb_iconerror)
else
messagebox(handle, 'ОТСТУПАЕМ' , 'Не пойдем на войну ', mb_iconerror);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
s:string;
begin
s:=inputbox('текст1','текст2','vnemanei');

showmessage(s);

inputquery('текст2','текст1',s);
showmessage(s);

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if opendialog1.execute=true then
label1.caption:=opendialog1.filename;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
if savedialog1.execute=true then
memo1.lines.savetofile(savedialog1.FileName);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
savepicturedialog1.execute;
end;
end.

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
close;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Label2.Visible:=true;
bitbtn2.Visible:=false;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
label2.caption:='Ждите повышения!';
end;

procedure TForm1.BitBtn2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
bitbtn2.left:=random(clientwidth-30);
bitbtn2.Top:=random(clientheight-30);
end;
end.

8 лет назад