Составьте программу для вычисления количества теплоты по формуле Q=cm(t2-t1)ПО Паскалю!

0 голосов
151 просмотров

Составьте программу для вычисления количества теплоты по формуле Q=cm(t2-t1)ПО Паскалю!


Информатика (16 баллов) | 151 просмотров
Дан 1 ответ
0 голосов

Var c,m,t1,t2,q: integer;
  begin
  write('Введите c ');
  readln(c); 
 write('Введите m ');
  readln(m); 
 write('Введите t1 ');
  readln(t1);
  write('Введите t2 '); 
 readln(t2); 
 q:=c*m*(t2-t1); 
 writeln('количества теплоты ',q);
end.

(1.1k баллов)