Регистрация
koiiik1p0725i
22.10.2020 11:18
Информатика
Есть ответ 👍

Нужно выполнить задание по информатике с объяснением.

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

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

lisi2912
lisi2912
4,6(66 оценок)

туц туц туц

Объяснение:

ыыыыыыыылыофоф


Нужно выполнить задание по информатике с объяснением.
Bananchik26
Bananchik26
4,6(51 оценок)

(см. объяснение)

Объяснение:

Uses Crt;

Var n: integer;

x,y,h,s,s1,xk:real;

Begin

ClrScr;

x:=0; xk:=3.1; h:=0.1;

s:=0.0; n:=0;

While x<=xk+h/2 do

begin

y:=sin(x);

writeln(x:3:1,' |', y:5:2);

if (y>0.1) and (y<0.6)then

begin

s:=s+y;

n:=n+1

end;

x:=x+h

end;

if n>0 then

Writeln('Среднее арифметическое=', s/n)

else

Writeln('Таких значений нет n=0');

Readln

End.

Популярно: Информатика