Вычислите значение функции y={sin x, если x>0, cos x, если x< или = 0​

Во-первых, не whill, а while.
 Во-вторых, цикл с предусловием(while) выполняется только тогда, когда его условие возвращает ложь. Если условие возвращает правду, цикл завершается. Бывает так, что при попытке первой итерации цикла условие уже возвращает правду. В этом случае цикл не будет выполнен ни разу.
 Цикл с предусловием(repeat), наоборот, выполняется, пока условие возвращает правду и завершается ложью. Стоит заметить, что если цикл с предусловием проверяет своё условие перед итерацией, цикл с постусловием делает это после, а это значит, что последний выполнится хотя бы один раз.

а) 5

б) 250

в) 65

г) 2

д) 50

Объяснение:

а)

a:=9;

 b:=a mod 5;     // 4   (9 делим на 5, берем по 1, 9-5=4 (4 остаток).

 b:=b*10;        // 4*10=40  (b(4) умножаем на 10).      

 a:=b div 5-3;   //  (b(40) делим на 5 и вычитаем из результата 3.

ответ:= 5

б)

a:=123;

b:=a div 10;         // 12 (123 делим на 10, берем по 12, 123-120=3, (12-целочисленное, 3-остаток).

b:=b/4+2;            // 12 делим на 4=3+2=5.

b:=b*25+2            // 5*25=125+2=127.

a:=a+b               // 123+127=250.

ответ:= 250.

в)

a:=951;

b:=a div 100+a mod 100;   // 60 (951 целочисленное при делении на 100 =9+951=960, остаток при делении на 100 числа 960=60).

a:=a div 10;    // 95 целочисленное при делении на 10 числа 951

.

a:=a mod 10;    // 5  остаток при делении числа 95  на 10

.

a:=a+b;         // 5+60=65

г)

a:=336;

b:=8;

a:=a div b;   // 42 целочисленное при делении числа 336 на 8 (336 делим на 8 =42).

b:= a mod b;  // 2 остаток при делении числа 42 на 8 (берем о 5=42-40=2, 2 - остаток).

д)

a:=10;

b:=20;

b:=a+b;  //10+20=30

a:=b-a;  //30=10=20

b:=b+a;  //30+20=50