Question

Решите в Паскале. 1. Определить количества теплоты, выделяющейся в замкнутой цепи, по закону Джоуля-Ленца: Q:=I2*R*t, где I=10А, R=100 Ом, а t изменяется от 1 до 10.

Answer 1

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.

Answer 2

Готово..............
.