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

готово..............
.

03bbb16d2b81b8ba8bad8ee7d1158409.pas

Answer 3

http://znanija.com/task/8068569 помоги пожалуйста