Uses crt;
var x:integer;
begin
for x:=10 to 99 do
if x mod 13=0 then writeln(x);
<span>end.</span>
var
a: integer;
b: real;
begin
writeln ('введи целое число');
read (a);
if a mod 2=0 then b:=a/2
else
b:=a*a*a;
writeln ('результат',b);
end.
Потому что емкость на носителе <span>CD-R очень мала, если на данный носитель записать фильм, то он будет показывать, но в плохом качестве, т. к. произойдет сильное сжатие.</span>
Условные обозначения:
not(x)=не(х)
\/ = +
/\=*
1) F=(x+z)*(x+not(z))*not(y)={можем раскрыть скобки точно так же, как в обычной алгебре}=(x*x+x*not(z)+z*x+z*not(z))*not(y)={применяем закон идентичности, исключающего третьего, свойства констант}=(x+x(not(z)+z)+0)*not(y)=(x+x*1)not(y)=(x+x)*not(y)=x*not(y);
2) F=(x+z)*(x+not(z))*not(y)={можем сразу воспользоваться законом дистрибутивности}=(x+z*not(z))*not(y)=(x+0)*not(y)=x*not(y).