while (true) { std::cout<<"s="; std::cin>>s; s = strcat(s, " "); sl = ""; for ( i = 0; i <= strlen(s); i++ ) { for ( j = 0; j <= 8; j++ ) { if ( strcmp(pr[j], s[i]) ) { punct = true; } else { punct = false; } } if ( !(punct) ) { sl = strcat(sl, s[i]); } else { if ( strlen(sl) > 0 ) { k = 0; for ( j = 0; j <= maxslov; j++ ) { if (slovar[j] = sl) { k++; } } if (k = 0) { std::cout<<"Слово \""<<sl<<"\" написано неправильно,или не найдено в словаре."<<endl; } else { std::cout<<"Слово \""<<sl<<"\" написано правильно."<<std::endl; } sl = " "; } } } } return 0; }
Nivanova995
06.11.2020
Program array2d; var v_range, v_neg, i, j, n: integer; array: array of array of integer; i_range, i_neg: array[1..2] of integer; begin randomize; write('введіть n: '); readln(n); SetLength(array, n, n); write('введіть а та b: ); readln(a, b); for i:= 1 to n do for j:= 1 to n do array(i, j) := random(100); for i:= 1 to n do for j:= 1 to n do begin if array(i, j) in a..b then begin if Assigned(v_neg) then break; {перевірка, чи є негативне значення знайденим} v_range := array(i, j); i_range[1] := i; i_range[2] := j; end; if array(i, j) < 0 then begin if Assigned(v_range) then break; v_neg := array(i, j); i_neg[1] := 1; i_neg[2] := 2; end; end; if Assigned(v_range) and Assigned(v_neg) then begin array(i_range[1], i_range[2]) := v_neg; array(i_neg[1], i_neg[2]) := v_range; end; writeln('Виконано.'); end.
12
Объяснение:
Сработает это:
if s % 2 != 0:
s = s - 1
k = s / 2
если s (s=25) % (деление по модулю) 2 != (не равняется) 0: (то)
s = s - 1 (теперь s = 24 - чётное число)
k = s / 2 (s = 24, 24 делится на 2 и получается 12)
else: (этот блок не выполняется в нашем случае)
k = s
print(k) (вывод значения k (12))
Объяснение: