Помогите пожалуйста написать программки:1)Отыскать творенье чисел от 6.7 до 7.8 с

какой язык?

pascal

// PascalABC.NET 3.0, сборка 1111
begin
  var p:=1.0;
  var a:=6.7;
  repeat
    p*=a; a+=0.4
  until agt;7.8;
  Writeln(p)
end.

// PascalABC.NET 3.0, сборка 1111
begin
  var s:=0.0;
  var p:=1.0;
  var a:=8.5;
  repeat
    s+=a; a+=0.1
  until agt;40.9;
  a:=1;
  repeat
    p*=a; a+=0.25
  until agt;3;
  if sgt;p then Writeln('Сумма больше творения')
  else
    if pgt;s then Writeln('Творенье больше суммы')
    else Writeln('Сумма и творенье одинаковы')
end.

begin
  Writeln(0.6+0.7+0.8+0.9)
end.