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

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

Question

Люня

17 октября, 00:10

+1

Ответы (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 слагаемыхНадо в системе Паскаля