program m1;
var a,b,c,:integer;
help:string;
begin
b:=0;
for var i:=2848 to 109499 do
begin
str(i,help);
if pos('9',help)<>0 then
begin
c := 0;
a:=i;
while a > 0 do
begin
if a mod 10 > 5 then
begin
c := c + a mod 10;
end;
a := a div 10;
end;
if c mod 3 = 0 then
begin
b:=b+1;
if pos('8',help)=1 then
begin
writeln(i);
end;
end;
end;
end;
writeln(b);
end.
Объяснение:
20865 89997
6952
Объяснение:
Двоюродная сестра - дочь брата или сестры матери или дочь брата или сестры отца.
Для того, чтобы найти двоюродную сестру, выполним следующие действия:
Найдём родителей Монро П.А.Выясним, есть ли у родителей братья/сёстры Выясним, есть ли у братьев/сестёр родителей дочериМонро П.А. в таблице 1 имеет ID 1384.
В таблице 2 ID_Ребёнка с номером 1384 соответствуют ID 2477 и ID 0285 из ID_Родителя (отец и мать Монро П.А.).
Проверим, есть ли у матери Монро П.А. брат/сестра:
В таблице 2 ID_Ребёнка с номером 2477 соответствуют ID 5791 и ID 6903 из ID_Родителя (отец и мать матери Монро П.А.). Найдём их детей.
ID 5791 из ID_Родителя соответствует, помимо ID 2477, ребёнок под ID 2554.
Таким образом мы нашли брата матери Монро П.А. Выясним, есть ли у него дочь:
ID_Родителя 2554 соответствуют два ID_Ребёнка: 6952 и 1415.
ID 6952 - женского пола, следовательно, она является дочерью брата матери Монро П.А, т.е. то, что мы искали.
