Question

Даю 30 баллов. Напишите, пожалуйста, на Паскале

Answer 1

var

 a,b,c:real;

begin

read(a);

read(b);

read(c);

writeln('Сумма чисел = ',(a+b+c));

 writeln('Сумма обратных чисел = ',((1/a)+(1/b)+(1/c)));

end.