Ответы
Ответ дал:
0
Задачка на циклы.
var
x,i:integer;
s:real;
begin
write('vvedite x: ');
readln(x);
for i:=1 to 7 do s:=s+sin(i*x);
writeln('s=', s);
end.
что тут сложного?
var
x,i:integer;
s:real;
begin
write('vvedite x: ');
readln(x);
for i:=1 to 7 do s:=s+sin(i*x);
writeln('s=', s);
end.
что тут сложного?
Вас заинтересует
1 год назад
2 года назад
7 лет назад
8 лет назад