![]() |
Помогите пожалуйста перевести код с паскаля на язык си
program Series7;
var R,Pro:Real; i,N:Integer; begin Pro:=1; Write(' N: '); Readln(N); for i:=1 to N do begin Write(' ',i,' : '); Readln(R); Writeln(R-Trunc(R)); Pro:=Pro*(R-Trunc(R)); end; Writeln(Pro); end. |
Время: 17:39. |
Время: 17:39.
© OSzone.net 2001-