Question

Опять паскаль...
Задана арифметическая прогрессия 2; 2,8; … . Сколько членов прогрессии нужно сложить, чтобы полученная сумма стала >20.

Answer 1

a := 2.0;
i := 1;
while (a < 20) do
begin
a := a + a + 0.8;
inc(i);
end;
writeln(i);

Answer 2

Увы, но вы проверяете сами значения прогрессии... А нужно сумму членов прогрессии. Не сходится с условиями задачи.

Answer 3

Ну наверно так: 
program qq;
 var i:integer; sum,num:real;
Begin
 num=2;
 sum:=2;
 i:=1;
 while(sum<=20)
 Begin
  i:=i+1;
  num:=num+0.8;
  sum:=sum+(sum+num);
 End;
 Writeln('Количество членов прогрессии: ', i);
End.

Answer 4

чувствую себя полной дурой, а можно чтобы программа сама рассчитала шаг прогрессии?)

Answer 5

шаг же 0.8

Answer 6

2.8-2=0.8 это и есть шаг прогрессии.по условию же

Answer 7

хорошо, можно еще одну программу Вам скину?

Answer 8

Протабулировать функцию y= cos x2+sin x2 на интервале [-п/2,п/2] с шагом п/10.