ответ: 2 (56).
не совсем понимаю, что такое таблица истинности, но все же:
| a | не а | b | не b | не a или не b |
123 | 1 | 0 | 0 | 1 | 1 |
56 | 1 | 0 | 1 | 0 | 0 |
9 | 0 | 1 | 0 | 1 | 1 |
8 | 0 | 1 | 1 | 0 | 1 |
методические рекомендации составлены в учителю при планировании, организации и проведении суммативного оценивания по предмету «информатика» для обучающихся в 6 классах. методические рекомендации подготовлены на основе учебной программы по предмету «информатика» (в рамках обновления содержания среднего образования) для основной школы (5-9 классы) (с языком обучения) и учебного плана. для суммативного оценивания за раздел/сквозную тему позволят учителю определить уровень достижения учащимися целей обучения, запланированных на четверть. для проведения суммативного оценивания за раздел/сквозную тему в методических рекомендациях предлагаются , критерии оценивания с дескрипторами и . также в сборнике описаны возможные уровни учебных достижений учащихся (рубрики). с дескрипторами и носят рекомендательный характер. методические рекомендации предназначены для учителей начальных классов, администрации школ, методистов отделов образования, школьных и региональных координаторов по критериальному оцениванию и других заинтересованных лиц. при подготовке методических рекомендаций использованы ресурсы (рисунки, фотографии, тексты, видео- и аудиоматериалы и находящиеся в открытом доступе на официальных интернет-сайтах.
источник:
Поделитесь своими знаниями, ответьте на вопрос:
Найдите выведите на экран все трехзначные числа, кратные 20, сумма цифр которых равны сумме цифр частного от деления их на 20 может так uses crt; var b, c, d, t, i, s, k: integer; o: real; begin s: =0; for k: =100 to 1000000000 do begin b: =k mod 10; c: =k div 100; d: =(k mod 100)div 10; t: =d+b+c; o: =(b div 20)+(c div 20)+(d div 20); if ((k mod 20)=0) and (t=o) then s: =s+1; end; writeln('s=', s); end.
ваш алгорим не оптимален, совершенно незачем делать "for k: =100 to 1000000000 do", т.к. по условию необходимо проверить лишь трехзначные числа.
uses crt; var a,b,k: integer; beginfor k: =100 to 999 do if k mod 20 =0 then begin a: = k div 20; b: = k div 10; if ((a mod 10) + (a div 10)) = ((k mod 10) + (b mod 10) + (a div 10)) then writeln(k); end; end.