Ответ:
9
Объяснение:
Если коротко то
A машины
B звери
C машины и звери одновременно
D все карточки т.е. Либо машины либо звери
Е только машины или только звери
C =AnB
D = AuB
E = D-C
A=10
B=13
C=7
D=AuB=A+B-AnB=A+B-C=10+13-7=16
E=D-C=16-7=9
<span>var a,b: integer;
function NOD(x,y: integer): integer;
begin
if x<>0 then NOD:=NOD(y mod x,x) else NOD:=y;
end;
</span><span>begin
readln(a,b);
writeln( 'НОД = ', NOD(a,b) );
end.</span>
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
SeqGen(ReadInteger, 1, 1, (i, j)-> i + j).Println
end.
<h2>И это - всё !</h2>
Var i,p:real;
begin
i:=0.1;
p:=1;
while (i<=10) do
begin
p:=p*(1+sin(pi*i/180));
i:=i+0.1;
end;
writeln ('Rezultat: ',p);
readln;
end.
если сильно надо считывать первое число (длину строки), то поменяй string на массив char