Ответы
Ответ дал:
0
var x: real;
i, m: integer;
begin
readln(m);
for i := 1 to m do
if (sin(i) >= 0) then
x := x + sin(i)
else
break;
writeln(x);
end.
Должно быть, так)
i, m: integer;
begin
readln(m);
for i := 1 to m do
if (sin(i) >= 0) then
x := x + sin(i)
else
break;
writeln(x);
end.
Должно быть, так)
Вас заинтересует
7 лет назад
7 лет назад
9 лет назад
9 лет назад