Циклические алгоритмы Опции

[Creator S.]

Вычислять и выводить на экран члены арифметической прогрессии
до тех пор, пока очередной член прогрессии не окажется большим 50.
Первый член арифметической прогрессии равен 2, разность равна 5;

Program lab6_2;
  Var
     a1,a:real;
  begin
     a:=2;
     write('Vvedite chislo a=');
     readln(a);
     while a<50 do begin
       S:=S+x
       write('Vvedite chislo a=');
       readln(a);
 end;
   writeln('Progressia', a:3:3);
   readln;

Не могу никак разобраться что к чему в этой задаче.

пользуемся тегами !

Сообщение отредактировано: volvo - 7.11.2006 1:44