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. Если условие будет истинно, то просто ничего не выполнится. И ещё небольшой комментарий: символ ’ не используется для написания строки, нужен символ '. Возможно это ты малость ошибся, при переписывании задания
1. Наперсток предназначен для защиты пальца от проколов во время работы.
2. Соблюдай порядок на своем рабочем месте.
Перед работой проверь исправность инструментов.
Не работай ножницами с ослабленным креплением.
Работай только исправным инструментом: хорошо отрегулированными и заточенными ножницами.
Работай ножницами только на своем рабочем месте.
Следи за движением лезвий во время работы.
Ножницы клади кольцами к себе.
Подавай ножницы кольцами вперед.
Не оставляй ножницы открытыми.
Храни ножницы в чехле лезвиями вниз.
Не играй с ножницами, не подноси ножницы к лицу.
Используй ножницы по назначению.
3. Нельзя втыкать иголки и булавки в одежду, мебель, брать их в рот. До и после работы пересчитывать иголки и булавки. При уколе пальца иглой следует выдавить две-три капли крови и смазать ранку йодом. Ножницы следует хранить в специальном чехле.
