Var
i,m,sum:Integer;
Begin
for i:=10 to 99 do
begin
m:=i mod 10;
n:=i div 10;
sum:=m+n;
if (i mod sum = 0) then Writeln(i);
end;
end.
Дискета, кассета, лазерный диск... Что-то из этого. Дискеты были на 5 и 3,5 дюйма
Степень вершины равняется количеству ребер исходящих из нее.
В данном случае из вершины исходит 3 ребра.
Ответ: 3