Пользуйся
Объяснение:
//fpc 3.0.0
program CheckColour;
var
k,l,m,n,kmod,lmod,mmod,nmod,klflag,nmflag: integer;
begin
kmod:=0;
lmod:=0;
mmod:=0;
nmod:=0;
klflag:=0;
nmflag:=0;
read(k, l, m, n);
kmod := (k mod 2);
lmod := (l mod 2);
mmod := (m mod 2);
nmod := (n mod 2);
//writeln(k, l, m, n);
//writeln(kmod, lmod, mmod, nmod);
klflag:=(kmod xor lmod);
nmflag:=(nmod xor mmod);
//writeln(klflag, nmflag);
if klflag = nmflag then writeln(true)
else writeln(false);
end.
Input 2 3 5 7
output FALSE
Клетка 1, 1 - черная
1.
var
A: array [1..10] of integer;
max, i: integer;
begin
for i:=1 to 10 do // заполнение массива
A[i] := random(100) - 50;
max := -51;
for i:=1 to 10 do // обработка массива
if (A[i] < 0) and (A[i] > max) then
max := A[i];
writeln(max);
end.
2.
var
A: array [1..1000] of integer;
kol, i, N: integer;
begin
readln(N);
for i:=1 to N do // заполнение массива
A[i] := random(100) - 50;
for i:=1 to N do // обработка массива
if A[i] mod 2 = 0 then
inc(kol);
writeln(kol);
end.