Комментарии 5

• Немного мудрёно, но тоже работает:

  uses PT4; var num,k:integer; i: boolean; begin Task('Series12'); i:=true; while i=true do begin read(num); k+=1; if num=0 then begin i:=false; write(k-1); end; end; end.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

  uses PT4; var num,k:integer;     i: boolean; begin   Task('Series12');   i:=true; while i=true do   begin   read(num);   k+=1;   if num=0 then     begin       i:=false;       write(k-1);     end;   end; end.

  Ответить

• Решение Антона: присвоить значение i до входа в цикл, например, 5 строку на
  R:=1; i:=-1;
  и как следствие 12 строку убрать

  Ответить

  • Я в задаче сам себе усложнил жизнь.
    и вывожу номер числа, что при -1 сбивается. поэтому добавил

    i:=0;

    1

    i:=0;

    , так как переменные всё равно надо обнулять.
    Убрал 12 строчку и изменил

    Writeln('в наборе ',i,'чисел');

    1	Writeln('в наборе ',i,'чисел');

    на

    Writeln('в наборе ',i-1,'чисел');

    1	Writeln('в наборе ',i-1,'чисел');

    Ответить

• //ввод вручную, pascalABC.net begin writeln('введите числа'); writeln('количество чисел в наборе = ',ReadSeqIntegerWhile(t->t<>0).Count) end.

  1 2 3 4 5

  //ввод вручную, pascalABC.net begin   writeln('введите числа');   writeln('количество чисел в наборе = ',ReadSeqIntegerWhile(t->t<>0).Count) end.

  Ответить

• //автоматический ввод из массива, pascalABC.net begin var a:=ArrRandomInteger(50,0,20);a.Println; a.TakeWhile(t->t<>0).Println; a.TakeWhile(t->t<>0).Count.Println; end.

  1 2 3 4 5 6

  //автоматический ввод из массива, pascalABC.net begin   var a:=ArrRandomInteger(50,0,20);a.Println;   a.TakeWhile(t->t<>0).Println;   a.TakeWhile(t->t<>0).Count.Println; end.

  Ответить