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

Question

Информатика

Веруша

7 ноября, 20:34

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

+2

Ответы (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.