Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

// 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.