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

Question

Информатика

Феодотия

1 января, 00:00

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

+3

Ответы (1)

Знаете ответ на вопрос?

Леония · Answer 1

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.