Question

Составить программу вычисления выражения 1+1/2+1/3+...+1/20 в Lazarus.

Answer 1

int a=0;
for(int i=1;i<21;i++){
    a+=1/i;
}