Series33. Даны целые числа K, N, а также K наборов целых чисел по N элементов в каждом наборе. Для каждого набора вывести номер его последнего элемента, равного 2, или число 0, если в данном наборе нет двоек.
Решение Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | program Series33; var K,N,Ni,Ki,A,Num:Integer; begin Write('N: '); Readln(N); Write('K: '); Readln(K); for Ki:=1 to K do begin Num:=0; for Ni:=1 to N do begin write('Введите ',Ni,' число из ',Ki ,' набора :'); Readln(A); if A=2 then Num:=Ni; end; Writeln(Num); end; end. |
Решение C
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | #include <stdio.h> int main(void) { int k,n; printf("K:"); scanf("%i", &k); printf("N:"); scanf("%i", &n); int ki,ni, a,f=0; for (ki=1; ki<=k; ++ki, f=0){ for (ni=1; ni<=n; ++ni){ printf("%i:%i>",ki,ni); scanf("%i", &a); if (a==2) f=ni; } printf("%i\n",f); } return 0; } |
На нашем сайте Вы можете заказать решение любой задачи по программированию на любом языке программирования
