Question

Написать программы: 1)найти произведение чисел от 6.7 до 7.8 с шагом 0.4 2)сравнить, что больше сумма ряда 8.5, 8..9 или произведение чисел от 1 до 3 с шагом 0.25 3)вычислить сумму ряда: 0.6, 0.7, 0.8, 0.9.

Answer 1

// PascalABC.NET 3.0, сборка 1111
begin
  var p:=1.0;
  var a:=6.7;
  repeat
    p*=a; a+=0.4
  until a>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 a>40.9;
  a:=1;
  repeat
    p*=a; a+=0.25
  until a>3;
  if s>p then Writeln('Сумма больше произведения')
  else
    if p>s then Writeln('Произведение больше суммы')
    else Writeln('Сумма и произведение равны')
end.

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