Oddmeattree
4 год назад
Вычислить 10 элементов которые получены в результате вычисления арифметического выражения Y=sin(a)/b где b=0.6 принадлежит [-1.57;3] с шагом 0.25 Найти сумму положительных и количество отрицательных значений элементов. Пожалуйста посчитайте срочно пожалуйста!!!
ОТВЕТЫ
Онуфрий
Oct 24, 2020
var a,b,y,s:real;
k:integer;
begin
s:=0;k:=0;
b:=0.6;
a:=-1.57;
while a<=3 do begin
y:=sin(a)/b;
writeln('y=',y);
if y>0 then s:=s+y;
if y<0 then k:=k+1;
a:=a+0.25;
end;
writeln(s);
writeln (k);
end.
k:integer;
begin
s:=0;k:=0;
b:=0.6;
a:=-1.57;
while a<=3 do begin
y:=sin(a)/b;
writeln('y=',y);
if y>0 then s:=s+y;
if y<0 then k:=k+1;
a:=a+0.25;
end;
writeln(s);
writeln (k);
end.
668
Смежные вопросы:
