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

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.

1) неопределенность знаний n = 64 - 32 = 32;

2) i = log232 = 5 бит - количество информации;

3) количество бит соответствует количеству вопросов.

ответ: 5 вопросов.

(если сумма цифр числа делится на 3, то число делится на 3 нацело)

var a, s: integer;

begin

s: =0;

writeln ('введите число');

while a< > 0 do

begin

a: = a mod 10  

s: =s+a;

end;

if  s mod  3 = 0  then writeln ('делится') else

writeln ('не делится');

end.