var n,a,b,c:integer; begin readln(n); if n=1 then write('true') else begin a:=1; b:=1; c:=0; while cbegin c:=a b; a:=b; b:=c; end; end; if c=n then write('true') else write('false');
end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
