Предмет: Информатика,
автор: dfrtyu
Помогите с 89 задачей)) 11 баллов
Приложения:
Ответы
Автор ответа:
1
Ответ:
var k,x:integer;
sr,sum:double;
begin
readln(k);
sum:=0;
for x:=1 to k do
sum:=sum+sin(x);
srednee:=sum/k;
writeln(srednee);
end.
dfrtyu:
спасибо
Интересные вопросы
Предмет: История,
автор: dnanazkeev3
Предмет: Обществознание,
автор: youloveolchikkk
Предмет: Математика,
автор: adbgde
Предмет: Математика,
автор: оля1256
Предмет: Математика,
автор: petr17