for (ip = mas; ip < mas+len; ip ++) if (*ip < *min) min = ip
после завершения поиска - перестановка : *ip = *min; *min =*mas; *mas = *ip
\\ main вроде как объявит матрицу, и выполнит управление вызовами функций- void и main(void)
{ n, m; matr [N][M]; i;input_matr (matr, n, m)
int
int \\ Матрица будет объявлена размером 5 на 5 int
\\потом она передастся в функцию ввода.
\\ Для преобразования матрицы ее строки передаются в функцию по очереди как одномерные массивы. Цикл управления находится в основной программе.
\\и он управляет передачей строк в функцию.
for (i = 0;i < n;i ++)
Change (matr[i], m); \\ matr[i], это i – тая строка матрицы.
\\Функция вывода матрицы вызывается после завершения обработки.
print_matr (matr, n, m); }
\\ End of main
1
Объяснение:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Порядок действий:
Скобки; Отрицание [не, ¬]; Дизъюнкция (И) Умножение [&, ∧]; Конъюнкция (ИЛИ) Сложение [∨, +].~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
((1 ∧ 1) ∨ 0) ∧ (0 ∨ 1)
(1 ∧ 1) = 1, т. к. оба числа истинны;(1 ∧ 1) ∨ 0 = 1 ∨ 0= 1, т. к. для истинности выражения с ИЛИ необходимо, чтобы хотя бы один элемент был истинным;(0 ∨ 1) = 1, т. к. для истинности выражения с ИЛИ необходимо, чтобы хотя бы один элемент был истинным;((1 ∧ 1) ∨ 0) ∧ (0 ∨ 1) = 1 ∧ 1 = 1, т. к. оба числа истинны.
//PascalABC v3.1
var s: string;
procedure repAll(var s: string; wOld, wNew: string);
var res: string;
p, len: integer;
begin
len:= Length(wOld);
res:= '';
while Length(s) > 0 do begin
p:= Pos(wOld, s);
if p = 0 then begin res:= res + s; break; end;
if p > 1 then res:= res + Copy(s,1,p-1);
res:= res + wNew;
if p+len > Length(s) then
s:= ''
else s:= Copy(s,p+len,Length(s));
end;
s:= res
end;
begin
readln(s);
repAll(s, 'СО', 'ТУ');
writeln(s)
end.
Тестовое решение:
СОК СОК СОК КОК ПОК
ТУК ТУК ТУК КОК ПОК