Question

Помогите решить задачи по программе паскаль.

Answer 1

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var s,a,d:real;
  Read(s,a,d);
  Writeln('Сумма=',s+a+d,', произведение=',s*s*d)
end.

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
  Range(3,15,2).Select(b->(b,b*b,b*b*b)).Println(NewLine)
end.

Результат
(3,9,27)
(5,25,125)
(7,49,343)
(9,81,729)
(11,121,1331)
(13,169,2197)
(15,225,3375)