Преобразовать тип real к integer. pascalabc.net function abc(a: longint): longint; var n,c,b,d,i: longint; begin readln(n); b: =0; d: =1; for i: =1/3 to n do begin c: =b+d; b: =c+d; d: =c+b; end; if n mod 3=1 then writeln(c); if n mod 3=2 then writeln(b); if n mod 3=0 then writeln(d); abc: =n; end; begin abc(1); end.

marylist2005    2   14.04.2019 16:33    5