Uses drawman;
begin
field(10,10);
ToPoint(1,1);
PenDown;
onvector(3,2);
onvector(1,-2);
ToPoint(1,1);
end.
1.
var f:integer;
begin
read(f);
if f mod 2<>0 then
f:=6*f
else
f:=f+29;
writeln(f);
<span>end.
2.
var i,n,k:integer;
begin
read(n);
k:=1;
for i:=2 to n do
k:=k*i;
writeln(k);
<span>end.</span></span>
Упрощение
(A+B)(!A+B) -> A(!A+B)+B(!A+B) A(!A+B) -> !AA+BA !AA -> 0 !AA+BA -> BA B(!A+B) -> !AB+BB BB -> B !AB+BB -> BA(!A+B)+B(!A+B) -> B
таблица истинности
A B F0 0 = 00 1 = 11 0 = 01 1 = 1
17 mod 3 =2
17 div 3 = 5
23 mod 10=3
23 div 10 =2
9 mod 2=1
9 div 2=4
33 mod 4=1
33 div 4= 8
29 mod 7 =1
29 div 7 =4
A div B - частное от деления A на B с остатком
A mod B - остаток от деления A на B с остатком!