Question

Составьте программу для вычисление количества теплоты , полученной при парообразовании M эфира , если его теплота парообразования L

Pascal

Answer 1

Var
L,m:real;
Begin
Write('L = ');Read(L);
Write('m = ');Read(m);
Write('Q = ',L*m,' Дж')
End.