Ответ:
Узел дерева без потомков- лист
без предков - корневой узел
Program n_1;
var a, b, c, d:integer;
begin
readln(a);
b:=a mod 10;
c:=a div 10 mod 10;
d:= a div 100 mod 10;
writeln('Число ', a, ' состоит из ', d, ' сотен, ', c, ' десятков и ', b, ' единиц');
end.
Var
n,b,i,k,r:integer;
begin
readln(n);
for i:=1 to n do
begin
readln(b);
if b>=8 then
begin
k:=k+1;
r:=r+b;
end;
end;
writeln('Количество сдавших:',k);
writeln('Среднее значение:',r/k);
end.
Держи алгоритм, программу, как я понял уже дали
Когда задаешь вопрос, внизу есть иконка с картинкой. Нажимаешь на неё и выбераешь фото с домашкой.