Var a,b,c,n:integer;begin readln(n); if n <= 2 then writeln(1) else begin a := 1; b := 1; while n > 2 do begin c := a + b; a := b; b := c; dec(n) end; writeln(c); end;<span>end.</span>
Листинг программы в приложении
Программа считывает файл input.txt вида
123 123.00
87 87.0000
567 87.3
987 882.45
и сравнивает integer и real записанные через пробел.
<span>b. на слово, в котором находится курсор</span>
Тема какая?.................