Не работает программа,почему? - PascalABC.NET

Формулировка задачи:

Program Summa;
uses crt;
var S,N,a:integer;
begin
  clrscr;
  writeln('Ввод N');
  read(N);
  S:=0;
  a:=1;
  while a>N do
    S:=S+a;
    a:=a+1;
   write('S=',S);
end.

Решение задачи: «Не работает программа,почему?»

textual
                            Листинг программы 
                        

                              while a>N do
    строка1;
    строка2;
    строка3;
                        

Оцени полезность:

9 голосов , оценка 4.111 из 5

Похожие ответы