var
z,a,i:integer;
begin
writeln('vvedite chislo');
readln(z);
writeln('vvedite zifru');
readln(a);
for i:=1 to length(IntToStr(z)) do begin
if z mod 10 = a then
writeln('est');
z:=z div 10;
end;
end.
Var n,x:integer;
begin
read(n);
if n mod 3 = 0 then
begin
n := n div 3;
for x := 1 to n do
if n mod x = 0 then
write(3*x,' ')
end
else
write('Not found')
end.
Пересечение: есть баскетболисты, есть футболисты, а есть те, кто и футболист, и баскетболист.
Не пересекаются: есть кошки, есть собаки, они разные
Равны: Есть бегемоты, а есть гиппопотамы.
Подмножество: Есть птицы, а есть птицы, которые не умеют летать
Числу в 16 системе счисления числу 13 буква. (В)