// PascalABC.NET 3.3.1611
begin
var sum := 0;
var n := 0;
ReadSeqIntegerWhile(x -> x <> 0).ForEach(x -> begin
n += 1;
if (0 < x) and (x <= 256) and (x mod 2 = 0) then
sum += x;
end);
println('Количество:', n);
println('Сумма:', sum);
end.
Получим формулу для вывода. То, что находится в переменных a и b буду обозначать [a, b]:
[a, b] Ввести a, b
[a+b, b] a:=a+b
[a+b, a] b:=a-b
[b, a] a:=a-b
[b, a] <span>Вывести<span> a+b
Итак, алгоритм просто меняет местами a и b, и выводит сумму b + a.
В порядке возрастания выводов:
</span></span><span><span>3) 7 + 7 = 14
4) 9 + 6 = 15
2) 12 + 4 = 16
1) 8 + 10 = 18
5) 11 + 9 = 20</span></span>
Var a,b,c,s,n,i:integer;
begin
readln(n);
b:=1;
for i:=1 to n do
begin
c:=b+a;
s:=s+c;
a:=b;
b:=c;
end;
writeln('s=',s);
<span>end.</span>
Ответ 16. _________будут вопросы пишите