1 способ
var i,k:integer;
<span>begin
k:=0; </span>
for i:=999 downto 100 do
begin
if i mod 13= 0 then
k:=k+1;
end;
write(k);
<span>end.
2 способ
</span>var i,k:integer;
<span>begin
k:=0; </span>
<span>for i:=100 to 999 do </span>
<span>begin </span>
<span>if i mod 13= 0 then </span>
k:=k+1;
<span>end; </span>
write(k);
<span>end.</span>
Генетическая информация нужна для передачи новым поколениям опыта приспособления живых организмов к окружающей среде.
begin
var n:=ReadInteger('n=');
var m:=(n div 1000) mod 10;
var p:=1;
while n>0 do
begin
p*=n mod 10;
n:=n div 10
end;
if (p mod 5 =0) and(p mod m<>0) then Print('Верно')
else Print('Неверно')
end.
Первая слева схема дает a ∧ b
Cледующая схема инвертирует это выражение: ¬(a ∧ b)
Самая правая схема объединяет полученную функцию с b по "ИЛИ"
¬(a ∧ b) ∨ b = ¬a ∨ ¬b ∨ b = ¬a ∨ (¬b ∨ b) = ¬a ∨ 1 = 1