Uses crt;
var
a,b,i,k: longint;
begin
writeln('введите 2 числа');
read (a,b);
k:=0;
for i:=a to b do
if i mod 2 = 0 then
k:=k+i;
writeln(сумма четных чисел от ', a,' до ', b,' равна ',k)
<span>end.</span>
Может быть материнская плата?
Задачу удобно решать с помощью кругов Эйлера (см. прилагаемый файл).
К1+К2+К3 = 15000
К2 = 8000
К2+К3 = 12000
К1 = 15000-12000 = 3000
К1+К2 = 3000+8000 = 11000
Ответ: 11000
Не знаю как решить с помощью дерева, но ответы дать могу,
52) сумма чисел будет равна 50
71) будет выведено 10 звёздочек
Внизу результаты выполнения двух программ соответственно, может чем-то поможет.