Question

Рассчитать количество теплоты, необходимое для нагревания тела массой m, удельной теплоемкостью c от температуры t1 до t2.

Пожалуйста прошу решить эту задачу для ученика 10 класса, на языке Паскаль 

Answer 1

var
t1,t2,m,c: real;
begin
write('t1='); readln(t1);
write('t2='); readln(t2);
write('m='); readln(m);
write('c='); readln(c);
writeln('Q=', c*m*(t2-t1));
end.