Написать программу на pascal, по данной по : какую работу совершили внешние силы над идеальным газом при его изотермическом сжатии, если при этом от газа отведено 600 дж теплоты.(это решение этой -дано: q=600 дж t= cоnst найти: а- ? решение: δu=a+q так какδt=0 δu=0 а=-q=-600 дж . заранее )
// Внимание! Если программа не работает, обновите версию!
begin
Writeln('A=',-ReadReal('Q='),' Дж.')
end.
Пример
Q= 600
A=-600 Дж.