Составьте программу для вычисления количества теплоты по формуле 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.

program xxx;

  var a,b,c : string;

begin

    write('введите название 1 фигуры-');

    readln (a);  

    write('введите название 2 фигуры-');

    readln (b);  

    write('введите название 3 фигуры-');

    readln (c);

    writeln (' фигуры: ',a,b,c);

    readln

end.

7fe=14*16^0+15*16^1+7*16^2=2046 в 10 с/с 2046/2=1023 байт

e=14

f=15

 

ответ 2