Var a: array[1..1000] of longint; n,i,k: longint; begin readln(n); for i: =1 to n do read(a[i]); if odd(a[1]) then k: =1 else k: =2; for i: =2 to n do begin if (odd(a[i]))and(k=1) then begin writeln('no'); halt; end; if (not odd(a[i]))and(k=2) then begin writeln('no'); halt; end; if k=1 then k: =2 else k: =1; end; writeln('yes'); end.
aobuhta4
02.11.2021
Const n = 99; var i, j, t: integer; flag: boolean; mas: array[1..n]of integer; begin randomize; i : = 0; while i < n do begin t : = random(1, 99); flag : = true; for j : = 1 to i do if t = mas[j] then begin flag : = false; break end; if flag then begin i : = i + 1; mas[i] : = t end end; for i : = 1 to n do write(mas[i], ' ') end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Самая высокая скорость передачи данных характерна для: 1) последовательного порта 2) паралельного порта 3) usb-порта