Series39. Дано целое число K, а также K наборов ненулевых целых чисел. Каждый набор содержит не менее трех элементов, признаком его завершения является число 0. Найти количество пилообразных наборов (определение пилообразного набора дано в задании Series23).
>Решение Pascal
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. |
>
Решение C
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 | #include int main(void) { int k; printf("K:"); scanf("%i", &k); int ki,a=1,a1,a2,count=0; for (ki=1; ki<=k; ++ki){ printf(">"); scanf("%i", &a1); printf(">"); scanf("%i", &a); int check=1; while(a!=0){ a2=a1; a1=a; printf(">"); scanf("%i", &a); if (!(((a2<a1) && (a1>a)) || ((a2>a1) && (a1<a))) && (a!=0) ) check=0; } if (check) count+=1; } printf("%i\n",count); return 0; } |
c++
#include
using namespace std;
int main()
{
int k, i, a, a1, a2, f, f1;
cout <> k;
for(i = 1; i <= k; i++)
{
f = 0;
f1 = 0;
cout << i << " — set: " <> a1;
cin >> a;
while(a != 0)
{
a2 = a1;
a1 = a;
cin >> a;
if(a > a1 & a2 > a1 & a != 0 || a < a1 & a2 < a1 & a != 0)
{
f = 1;
}
}
if (f == 1){f1++;}
}
cout << "Quantity: " << f1;
}