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

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

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

шаг же 0.8

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

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

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

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

Ну наверно так: 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.