Вычислите на компьютере значение функции: s=1+3+5 ... + n. Осуществите вывод значений исходных данных и результатов расчета. На Pascal. Turbo

Question

Эвелина

19 мая, 19:20

+5

Ответы (1)

Знаете ответ на вопрос?

Феофания · Answer 1

Var

a, n, i, k:integer;

Begin

Readln (n) ;

k:=0;

For i:=1 to N do

if i mod 2=1 then k:=k+i;

Writeln (k) ;

End.