Найти сумму 1,1+1,2+1,3+1 ... из n слагаемых

Надо в системе Паскаля

Question

Леопольд

27 сентября, 16:38

+5

Ответы (1)

Знаете ответ?

Альба · Answer 1

Var

i, n: integer;

s:real;

begin

readln (n) ;

s : = 0;

for i : = 1 to n do

s : = s + 1 + i / 10;

writeln ('s = ', s) ;

end.

Найти сумму 1,1+1,2+1,3+1 ... из n слагаемыхНадо в системе Паскаля