<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b):=ReadReal2('Введите a и b через пробел:');
var y:=1/a+1/b;
Writeln('y=',y)
end.
<u>Пример</u>
Введите a и b через пробел: 3.8 7
y=0.406015037593985
Результат управления это: результат всех действий.
Джостик,графопостроитель, процессор, принтер, блок питания,колонки, сетевая карта,энтер, цветной принтер
Все решать или нужно какой то номер
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);
Я не знаю но может вот это поможет?