Решите в Паскале. 1. Определить количества теплоты, выделяющейся в замкнутой цепи, по закону Джоуля-Ленца: Q:=I2*R*t, где I=10А, R=100 Ом, а t изменяется от 1 до 10.
Готово.............. .
http://znanija.com/task/8068569 помоги пожалуйста
Const I = 10; R = 100; var t: integer; begin for t := 1 to 10 do writeln('t = ', t:2, ' Q = ', I*I*R*t, ' Дж'); end.