Решите в паскале. 1. определить количества теплоты, выделяющейся в замкнутой цепи, по закону джоуля-ленца: q: =i2*r*t, где i=10а, r=100 ом, а t изменяется от 1 до 10.

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.

Готово
.