Помощь - Поиск - Пользователи - Календарь
Полная версия: Циклические алгоритмы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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;

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

пользуемся тегами !
klem4
uses crt;
const r=5;
var
   s : word;
begin
   s := 2;
   while(s+r<=50) do inc(s,r);
   writeln(s);
   readln
end.


?
Гость
Я понял.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.