program noname; uses crt; var f,f1,f2,m:longint; begin clrscr; write('m='); readln(m); f1:=1; f2:=1; while f<=m do begin f:=f1+f2; f2:=f1; f1:=f; end; writeln('f=',f); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
