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

Question

Фотинья

4 декабря, 08:11

+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.