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

1. Какое количество теплоты требуется для обращения 2кг воды,взятой при температуре 50 С,в пар при 100С? Удельная теплота парооброзования воды 2300кДж/кг.

2. Почему весной во время ледохода вблизи реки холоднее,чем вдали от нее?

Ответы

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

2 х 4200 х 50 = 420000 Дж - нагрев
2 х 2300000 = 4600000 Дж - парообразование

Складываем, получаем 5020 КДж

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

2. Лед тает, а для этого процесса необходимо тепло. Вот тепло из окружающего воздуха и расходуется на процесс таяния льда.

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

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

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

Предмет: Математика, автор: romanveber08

Помогите пожалуйста даю 20 баллов

6 лет назад

Предмет: Алгебра, автор: speelpazm

дано уравнение х²/х+7-5х/х+7=0 укажите озд уравнения,приведите рациональное уравнение к квадратному уравнению,найдите решение рационального уравнения
пожалуйста быстрее!!!

6 лет назад

Предмет: Математика, автор: nikita9836

Помогите пожалуйста решить

6 лет назад

Предмет: Алгебра, автор: Vasilekgrib

Подскажите, пожалуйста, решение... ( ответ: 50%)
Объем монтажных работ увеличился на 80%. На сколько процентов надо увеличить число рабочих, чтобы выполнять работу за то же время, если производительность труда при этом увеличилась на 20%?

9 лет назад

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

Ребят, помогите пожалуйста объяснить задачи!!!
В целочисленной
последовательности есть нулевые элементы. Создать массив из номеров этих
элементов.

Program
Om1;

Uses
crt;

Var

a :array
[1..100] of real;

i,n,j :
integer;

x :
array [1..100] of real;

Begin

clrscr;

write('n=');readln(n);

for i:=1
to n do

readln(a[i]);

j:=1;

for i:=1
to n do

if
a[i]=0 then

begin

x[j]:=i;

j:=j+1

end;

for i:=1
to j-1 do

write(x[i],' ');

End.

Дана последовательность
целых чисел а1, а2….аn.
Выяснить какое число встречается раньше, положительное или отрицательное.

Program
num2;

Uses
crt;

VAr

a :array
[1..100] of real;

i,n :
integer;

Begin

clrscr;

write('n=');readln(n);

for i:=1 to n do

readln(a[i]);

for i:=1
to n do

begin

if
a[i]<>0 then

if
a[i]>0 then

begin

writeln('Положительное встречается раньше');

break

end else

begin

writeln('Отрицательное встречается раньше');

break

end;

end;

End.

Дана последовательность
действительных чисел а1, а2….аn. Выяснить будет ли она возрастающей.

Program
num4;

Uses
crt;

Var

a :
array [1..100] of real;

i, n, j
:integer;

Begin

clrscr;

write('n=');readln(n);

a[n+1]:=a[n]+1;

for i:=1
to n do

readln(a[i]);

j:=0;

i:=1;

while
i<n do

begin

if
a[i]<a[i+1] then

begin

j:=j+1;

i:=i+1

end

else

begin

writeln('Последовательность невозрастающая');

break

end;

end;

if i=n then writeln('Последовательность возрастающая');

End.

Найти самую большую цифру
целого числа.

Program
rar;

uses
crt;

var
n:longint;

b:byte;

begin

clrscr;

repeat

write ('Введите целое число n=');

readln
(n);

until
n>0;

b:=0;

while
n>0 do

begin

if n mod
10 >b then b:=n mod 10;

n:=n div 10;

end;

write ('Самая большая цифра числа=',b);

readln

end.

9 лет назад