Запиши программу на языке паскаль. вычисли сумму s= n ∑ k=1 k+1/k^2+1, если значение n вводит пользователь. если n=6, то вывод на экран (ответ округли до сотых)

117

461

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

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

Bmadjdraw

Информатика

4,4(53 оценок)

Var s: real; k: integer; begin write('n = '); readln(k); for k: = 1 to k do s: =s+(k+1)/(k*k+1); if k=6 then write('s = ',s: 0: 2) end. результат работы программы: n = 6 s = 2.71

sludkov

Информатика

4,5(20 оценок)

Объяснение:

Блок схема и листинг программы в приложениях. PROGRAM SUM_ZNAK; var n, i, sum: integer; begin Read(n); sum:=0; while (n > 0) do begin sum := sum+1; n := n div 10; end; Writeln(sum); end.