Предмет: Физика, автор: konstantingiorgiev

4. Вычислить давление керосина, плотность которого 800кг/м3, на дно сосуда высотой 0,2м. (g=10 Н/кг)​

Ответы

Автор ответа: fatt52
20

Ответ:

1600 Па

Объяснение:

po=800 кг/м3    h=0.2 м   p=?

===

p=po*g*h=800*10*0.2=1600 Па

=========================

sashakim841201: а там же надо ещё зд4лать
sashakim841201: например
sashakim841201: дано:
sashakim841201: Си:
sashakim841201: решение:
bekaryspernebai19: Алмас
Предыдущий вопрос
Следующий вопрос
Похожие вопросы
Предмет: Другие предметы, автор: менинсыйлыгым2
адебиет 5 акыл. 5 душпан
1 год назад
Предмет: Қазақ тiлi, автор: ang1616
Пожалуйсто помогите по казахскому языку.
Надо...
Составить 5 предложений на...
Нак осы шак
Составить 5 предложений на...
Ауыспалы осы шак
Поможете!
1 год назад
Предмет: Русский язык, автор: ксения211
фонетический разбор слова заяц 3 класс
1 год назад
Предмет: Информатика, автор: Аноним
Помогите разобрать коды что за что отвечает хоть что то

задание1
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.
задание2
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.

задание3
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 лет назад
Предмет: Математика, автор: Нікроля
розвязати рівняння |2.75+x|=1.25
8 лет назад