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 z,d,k : integer;
begin
z: =2; d: =7; k: =0;
while (d> =z) do
begin
d: =d-z;
k: =k+1
end;
writeln(d,' ',k);
readln
end.
Ответ дал: Гость
письменность была нужна для оформления сделок, фиксации движения товаров, выручки, учета, финикийцы известны, прежде всего, как предприимчивые торговцы и отважные мореплаватели.
Популярные вопросы