Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Тест-форум (http://forum.oszone.net/forumdisplay.php?f=26)
-   -   Помогите пожалуйста перевести код с паскаля на язык си (http://forum.oszone.net/showthread.php?t=288247)

vad91996 21-09-2014 14:28 2405393

Помогите пожалуйста перевести код с паскаля на язык си
 
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-