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. Если условие будет истинно, то просто ничего не выполнится. И ещё небольшой комментарий: символ ’ не используется для написания строки, нужен символ '. Возможно это ты малость ошибся, при переписывании задания
необъективность=Эти брюки дорого стоят
Достоверность= все ныне живущие люди умрут
недостоверность=люди бессмертны
полнота=Ира, моя родная сестра, приехала погостить на пару дней
неполнота=девушка
актуальность=на вашем счёте 2 рубля
неактуальность=в 1894 на счёте вашего прапрадедушки было семь шекелей
ценная информация=хорошо написанная статья о том как вылечить больную печень. эта информация ценна для пьяницы
не ценная=та же статья но для здорового шахтёра в уральских горах ценна не будет
понятная информация=в долларе 56,89 рубля
непонятная информация=ドル56.89ルーブル