3, 6 (но с уловием, что это последняя строка кода перед end.)
Объяснение:
1.) if x>0 or y>0 then k:= k+1 else k:= 0; - неверно, потому что при использовании and или or сравниваемые условия необходимо указывать в ( )
2.) if 10 then k:= k+1; - должно быть указано условие, просто число не может быть условием (по крайней мере в pascal)
3.) if x<>0 then y:=100/x; - всё ОК
4.) if x - нет then,
5.) if x>0 then y:= 100 div x; else y:= 0; - перед else не ставится ;
6.) if (x mod y=0) then else writeln(‘no’) - всё ОК, с условием, что это последняя срока кода перед end. Если условие будет истинно, то просто ничего не выполнится. И ещё небольшой комментарий: символ ’ не используется для написания строки, нужен символ '. Возможно это ты малость ошибся, при переписывании задания
814 597 = 524 288 + 290 309 = 2^19 + 290 309
290 309 = 262 144 + 28 165 = 2^18 + 28 165
28 165 = 16 384 + 11 781 = 2^14 + 11 781
11 781 = 8 192 + 3589 = 2^13 + 3589
3589 = 2048 + 1550 = 2^11 + 1541
1541 = 1024 + 526 = 2^10 + 517
517 = 512 + 5 = 2^9 + 5
5 = 4+1 = 2^2 + 1
1 = 2^0
135 032 325 = 2^27+2^19+2^18+2^14+2^13+2^11+2^10+2^9+2^2+2^0 =
1 000 000 011 000 110 111 000 000 101(2)