Как перевести код из паскаля в с++

[AlinaV]

Помогите пожалуйста

Program while_13;
 
var
   summ: real;
   A, k: integer;
 
begin
     write('Введите число: ');
     readln(A);
     k := 1;
     summ := 1;
     while summ <= A do
           begin
              inc(k);
              summ := summ + 1 / k;
           end;
     writeln('Число: ', (1 / k):2:10);
     writeln('Сумма: ', summ:2:10);
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[min@y™]

14.png