Привет)помогите пожалуйста,буду очень благодарен)мне нужно задачу в паскале написать,а я...

Question

Привет)помогите пожалуйста,буду очень благодарен)мне нужно задачу в паскале написать,а я не пойму как) Определить,что больше сумма ряда:1.1,1.3,...,93.1 или произведение 5*7*...*11)и схему если не сложно

Answer 1

Var a,b,sum:real;
begin
  a:=1.1;
  while a<=93.2 do begin<br>    sum:=sum+a;
    a:=a+0.2;
  end;
  b:=5*7*9*11;
  if sum>b then writeln('Сумма больше') else writeln('Произведение больше')
end.