Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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