Пользуйся
Объяснение:
//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 - черная
program fantscrin;
var x, f:real;
begin
write('Введите x = '); readln(x);
if x = 2 then f:=3*x*x - 1/2
else if x = 3 then f:=x*x*x-3*x/2
else f:=2*x*x*x*x-3*x/2;
writeln('f = ',f);
end.