Перевод кода Паскаль в с++

[viphack]

Помогите перевсти

1 program N54553636; 
const n = 10; {кол-во чисел} 
var i:integer; 
s,x:real; 
begin 
s := 0; 
for i := 1 to n do 
begin 
write('Введите ',i,'-е число: '); 
readln(x); 
s := s + sqr(x); 
end; 
writeln('Сумма квадратов чисел = ',s:0:6); 
readln 
end.
2. var i, sum : integer;
n : real;
begin
sum := 0;
for i := 1 to 15 do
begin
readln(n);
if n = trunc(n) then sum := sum + 1;
end;
writeln(sum);
end.
3. 
readln(k); 
f := true; 
for i := 1 to 9 do 
begin 
readln(n); 
if k > n then f := false; 
k := n; 
end; 
if f then writeln('является') 
else writeln('не является')

[MansMI]

mansmi@rambler.ru пишите

[viphack]

Сообщение от MansMI

mansmi@rambler.ru пишите

написал, а сдесь что непоможете

[Аватар]

Слово фриланс говорит о чем то? В этом разделе заказывают работу за оплату

[JIeIIIa]

Если еще актуально, пишите: stealth(собака)bigmir.net
Сразу указывайте на когда нужна работа и предполагаемый бюджет.

[Alex11223]

Да перевели уже ему на другом форуме, где любят ленивых халявщиков )