Температура нагревателя идеальной тепловой машины составляет 227 °С, а охладителя — 27 °С. За один рабочий цикл тепловой машиной выполняется работа 60 Дж. Какое количество теплоты получает рабочее тело идеальной тепловой машины за один цикл?
Function ProdDig(n:longint):longint; var p:longint; begin p:=1; while n>0 do begin p:=p*(n mod 10); n:=n div 10 end; ProdDig:=p end;
var f:Text; a,b,c:longint; begin Assign(f,'abc.txt'); Reset(f); Readln(f,a,b,c); Close(f); Assign(f,'abcout.txt'); Rewrite(f); Writeln(f,ProdDig(a+b+c)); Close(f) end.
Вариант без использования функции: var f:Text; a,b,c,p,s:longint; begin Assign(f,'abc.txt'); Reset(f); Readln(f,a,b,c); Close(f); s:=a+b+c; p:=1; while s>0 do begin p:=p*(s mod 10); s:=s div 10 end; Assign(f,'abcout.txt'); Rewrite(f); Writeln(f,p); Close(f) end.
var
p:longint;
begin
p:=1;
while n>0 do begin
p:=p*(n mod 10);
n:=n div 10
end;
ProdDig:=p
end;
var
f:Text;
a,b,c:longint;
begin
Assign(f,'abc.txt');
Reset(f);
Readln(f,a,b,c);
Close(f);
Assign(f,'abcout.txt');
Rewrite(f);
Writeln(f,ProdDig(a+b+c));
Close(f)
end.
Вариант без использования функции:
var
f:Text;
a,b,c,p,s:longint;
begin
Assign(f,'abc.txt');
Reset(f);
Readln(f,a,b,c);
Close(f);
s:=a+b+c; p:=1;
while s>0 do begin
p:=p*(s mod 10);
s:=s div 10
end;
Assign(f,'abcout.txt');
Rewrite(f);
Writeln(f,p);
Close(f)
end.