Напиши вк я тебе ответ скину я ссылку с ответом тебе кинуть здесь не могу
F*D+не(F->D)=F*D+не(неF+D)=F*D+F*неD=F(D+неD)=F*1=F
Ответ:
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
Uses crt;
var a,t,ans:integer;
begin
read(a);
ans:=1;
while true do
begin
t:=a;
read(a);
if a>t then
ans:=ans+1
else
break;
end;
writeln(ans);
<span>end.</span>
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
procedure RedFrac(a,b:integer; var c,d:integer); // сокращение дроби
function Gcd(a,b:integer):integer; // НОД
begin
while b<>0 do begin a:=a mod b; Swap(a,b) end;
Result:=a
end;
begin
var sgnc:=Sign(a); // мы должны учитывать знак!
var sgnd:=Sign(b); // мы должны учитывать знак!
c:=Abs(a); d:=Abs(b);
var g:=Gcd(c,d);
c:=(c div g)*sgnc; d:=(d div g)*sgnd
end;
begin
var p,q,r,s:integer;
Write('Введите числитель и знаменатель: '); Read(p,q);
RedFrac(p,q,r,s);
Writeln(p,' / ',q,' = ',r, ' / ',s)
end.
<u>Пример</u>
Введите числитель и знаменатель: 384 4096
384 / 4096 = 3 / 32