Pascal задание по информатике через WHILE

9.
s:=0; k:=0; while (k < n) do begin
k:=k+1; s:=s+sin(k*x) end;
10.
s:=0; k:=0; y:=x; while (k < n) do begin
k:=k+1; y:=cos(y); s:=s+y end;
Вот так это делается.

В цикле for фишка в том, что за изменение счетчика отвечает само устройство цикла:

for q := 1 to n do
begin
...
end;

Операторы между begin и end выполнятся сначала для q = 1, потом для q = 2, q = 3, …, q = n. После этого цикл завершится.

В цикле while нет встроенного контроля за значением счетчика, поэтому счетчик придется контролировать явно.

Пусть у нас есть переменные x и y дробных типов — real, single или double. А также целое количество слагаемых n и переменная-счетчик q.

x и n нам ввели с клавиатуры — например, с помощью readln(x); readln(n);

Нам нужно сложить все слагаемые sin qx для q = 1, q = 2, …, q = n.
Тогда и получим sin x + sin 2x + … + sin nx.

Сначала обнулим переменную для суммы:
y := 0;

Затем укажем начальное значение счетчика:
q := 1;

Теперь запустим цикл, внутри которого будем прибавлять к сумме y одно слагаемое, а также увеличивать счетчик q. И повторять это до тех пор, пока счетчик q не превысит количество слагаемых n:

while q <= n do
begin
y := y + sin(q * x);
q := q + 1;
end;

Вот и всё.

Показывайте что у вас есть, в чем проблема, поправим, подскажем...

For и while отличается только тем, где указывается условие. Если знаешь как сделать с for, то и с while - без проблем.