Составить программу для вычисления суммы ряда (pascal abc) 1+3+5++n

286

421

Посмотреть ответы 2

Ответы на вопрос:

валентинка20

Информатика

4,7(96 оценок)

Program chik; var n,s,i: longint; begin read(n); i: =-1; s: =0; while i< =n do begin i: =i+2; s: =s+i; end; writeln(s); end.

апепе1

Информатика

4,7(70 оценок)

Program murmansk; const n=31; var t: array[1..n] of integer; i,min: integer; begin randomize; for i: =1 to n do begin t[i]: =random(15)-10; write(t[i]: 4); end; writeln; min: =t[1]; for i: =2 to n do if t[i]< min then min: =t[i]; writeln ('min=', min); for i: =1 to n do if t[i]=min then write(i: 3); writeln; end. пример: -6 0 -5 1 -5 3 -6 -7 -3 -3 -3 0 -10 0 -6 -1 -8 -7 3 -10 2 2 2 -2 -10 1 1 3 2 -5 -4 min=-10 13 20 25