Var a,i,b:integer;
begin
writeln('Введи число');
readln(a);
writeln('Уадай');
while a<>b do
begin
readln(b);
if a<b then
begin writeln('Меньше'); i:=i+1; end
else
if a>b then
begin writeln('Больше'); i:=i+1; end;
end;
writeln('Попыток было:', i)
end.
Формула включений-исключений для двух множеств:
A | B = A + B - A & B
4) фрегат | эсминец = фрегат + эсминец - фрегат & эсминец
фрегат = фрегат | эсминец - эсминец + фрегат & эсминец
фрегат = 4500 - 2500 + 500 = 2500
5) крейсер | линкор = крейсер + линкор - крейсер & линкор
крейсер & линкор = крейсер + линкор - крейсер | линкор
крейсер & линкор = 4800 + 4500 - 7000 = 2300
6) торты | пироги = торты + пироги - торты & пироги
торты = торты | пироги - пироги + торты & пироги
торты = 12000 - 7700 + 6500 = 10800
утка плавает от берега,
вода стоит в колодце
тигра в клетку не поймать тигры бывают только в полоску
3:красный, зелёный, синий