Question

Определите,что будет результатом выполнения алгоритма:

Answer 1

Program znanija;
var a,b,n,k:integer;
begin
a:=1;b:=1;n:=3;
while n<6 do 
begin    k:=a+b;  a:=b;  b:=k;  n:=n+1;   
end;  
writeln(k);
end.

Написав маленькую программу получим ответ 5