Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.
Новые вопросы по предмету Информатика:
var
n, i: integer;
x, s: real;
begin
repeat
writeln('Введите количество слагаемых:');
readln(n)
until n>0;
writeln('Введите ''x'':');
readln(x);
for i := 1 to n do
s := s + sin(i * x);
writeln(s);
readln
end.