Series39. Дано целое число $$K$$, а также $$K$$ наборов ненулевых целых чисел. Каждый набор содержит не менее трех элементов, признаком его завершения является число 0. Найти количество пилообразных наборов (определение пилообразного набора дано в задании Series23).
Решение:
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 |
program Series39; var K,Ki,A,A1,A2,Count:Integer; Check:Boolean; begin Write('K: '); Readln(K); for Ki:=1 to K do begin Write('A: '); Readln(A1); Write('A: '); Readln(A); Check:=True; repeat A2:=A1; A1:=A; Write('A: '); Readln(A); if not (((A2<A1) and (A1>A)) or ((A2>A1) and (A1<A))) and (A<>0) then Check:=False; until A=0; Writeln('---'); If Check then Count:=Count+1; end; Writeln(Count); end. |
Другие задачи из раздела Series можно посмотреть здесь.
14 строка в моем коде лишняя
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.