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

• begin var count:=0; write('введите кол-во наборов: '); var k:=ReadlnInteger('k ='); for var i:=1 to k do begin writeln('введите ',i,' набор чисел:'); var a:=ReadSeqIntegerWhile(t->t<>0).ToArray; a:=a.Incremental((x,y)->x-y).ToArray;// a.Println; for var j:=0 to a.Count-2 do if a[j]*a[j+1]>=0 then break else if j=a.Count-2 then count+=1; count.Println; end; print('кол-во пилообразных наборов =',count); readln;readln; end.

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

  begin   var count:=0;   write('введите кол-во наборов: ');   var k:=ReadlnInteger('k =');   for var i:=1 to k do   begin     writeln('введите ',i,' набор чисел:');     var a:=ReadSeqIntegerWhile(t->t<>0).ToArray;     a:=a.Incremental((x,y)->x-y).ToArray;// a.Println;     for var j:=0 to a.Count-2 do       if a[j]*a[j+1]>=0 then break       else         if j=a.Count-2 then count+=1;     count.Println;    end;   print('кол-во пилообразных наборов =',count);   readln;readln; end.

  Ответить

• 14 строка в моем коде лишняя

  Ответить

• var k,n,nc,i,s:integer; b,c:boolean; begin writeln ('введите количество наборов чисел:'); readln (k); for i:=1 to k do begin writeln ('введите первое число из ряда:'); readln (n); writeln ('введите второе число из ряда:'); readln (nc); c:=true; if n<nc then b:=true else b:=false; if b=false then writeln ('для сохранения условий следующее число должно быть больше'); if b=true then writeln ('для сохранениня условий следующее чило должно быть меньше'); while n<>0 do begin writeln ('введите следующее число из ряда:'); readln (n); if n=0 then begin write ('конец ряда');break;end; if b=true then b:=false else b:=true; if ((n<nc) and (b=true)) then c:=false; if ((n>nc) and (b=false)) then c:=false; if c=true then writeln ('условие последовательности ряда сохранено'); if c=false then begin writeln ('условие последовательности ряда нарушено! Выходим из набора!');break end; if b=false then writeln ('для сохранинения условий следующй элемент должен быть больше'); if b=true then writeln ('для сохранения условий следующий элемент должен быть меньше'); nc:=n; end; if c=true then s:=s+1; end; writeln ('число корректных наборов:',s); end.

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

  var k,n,nc,i,s:integer; b,c:boolean; begin   writeln ('введите количество наборов чисел:');   readln (k);   for i:=1 to k do   begin     writeln ('введите первое число из ряда:');     readln (n);     writeln ('введите второе число из ряда:');     readln (nc);     c:=true;     if n<nc then b:=true else b:=false;     if b=false then writeln ('для сохранения условий следующее число должно быть больше');     if b=true then writeln ('для сохранениня условий следующее чило должно быть меньше');     while n<>0 do     begin       writeln ('введите следующее число из ряда:');       readln (n);       if n=0 then begin write ('конец ряда');break;end;       if b=true then  b:=false else b:=true;       if ((n<nc) and (b=true)) then c:=false;       if ((n>nc) and (b=false)) then c:=false;       if c=true then writeln ('условие последовательности ряда сохранено');       if c=false then begin writeln ('условие последовательности ряда нарушено! Выходим из набора!');break end;       if b=false then writeln ('для сохранинения условий следующй элемент должен быть больше');       if b=true then writeln ('для сохранения условий следующий элемент должен быть меньше');       nc:=n;     end;     if c=true then s:=s+1;   end;   writeln ('число корректных наборов:',s); end.

  Ответить

• Program n_39;
  var K, i, A, A1, p, p1, n :Integer;
  Begin
  Write(‘Дано целое число K>>’);
  Readln(K);
  n:=k;
  for i:=1 to K do
  begin
  Write(‘A>>’);
  Readln(A);
  A1:=A;
  p1:=0; p:=0;
  while A0 do
  begin
  if A>A1 then p:=1 else if A<A1 then p:=-1;
  if (p10) and (p*P1=1) then begin
  n:=n-1 ;
  break;
  end ;
  A1:=A;
  write (‘A>>’);
  readln (A);
  p1:=p;
  end;
  end;
  writeln (‘количество пилообразных наборов >>’, n);
  end.

  Ответить