Складіть програму для знаходження кількості теплоти, яка потрібна для нагрівання тіла масою м, з початковою - id2108736720221215 от Gllodory 15.12.2022 23:13

Question

Информатика: Складіть програму для знаходження кількості теплоти, яка потрібна для нагрівання тіла масою м, з початковою і кінцевою температу рами тіла t, i tą, питомою теплоємністю речовини с, яка обчислюєть ся за формулою:

Gllodory · Accepted Answer

1.  var  n,i,k,sum,g:integer; begin readln(n); g:=n; while n 0 do begin  g:= g div 10;  k +=1; end; for i:=1 to k do begin g:= n mod 10; sum:= sum + g; n:=n div 10; end; if sum 10 then writeln( верно ) else ( неверно ); end. 2. var  n,i,k,p,h,g:integer; begin readln(n); g:=n; while n 0 do begin  g:= g div 10;  k +=1; end; p:=n mod 10; n:=n div 10; for i:=1 to k-1do begin g:= n mod 10; if g = p then  h += 1; n:=n div 10; end; writeln(h); end. 3. const n=10; var a:array[1..n]of integer; i,sum:integer;...

MOGZ ответил