2. Оқушылар Виртуальды қабырғалармен жұмыс жасауда компьютерде бақылайтынНысан4. Оқытудың мазмұнын өзгерту жағдайында жаңа ақпараттық технологияның біріншібағыты5. Жаңа ақпараттық технологияның бағыттарыб. К.А.Кайминнің ақпараттық мәдениетке берген анықтамасы7. Проблемалық оқытудың технологиялық мақсаттарының бірі8. Ойын арқылы балаларды болашақ өмірге тәрбиелеу керек деп шкір айтқан XVIIғасыр ғалымдары9. Баланы күшті қоғамдық қатынастар жүйесіне енгізіп және оған мәдениет байлығынигертуге мүмкіндік беретін ойынның қазметі10. Диваев өзінің еңбектерінде қазақтың ұлттық ойындарын неше топқа бөліп қарады?11. «Ойында бала қалай болса, өмірде кәсіби қызмет саласында көбінесе сондайболады»- деген кір айтқан ғалым12. Ойын технологиясын зерттеуде үлес қосқан қазақ ғалымы13. А.Диваевтың кішкентай бүлдіршіндер ойынына кіргізген ойындары14. Білім беруді ізгілендіру технологиясын ұсынған ғалым15. А.Ш.Амонашвилидің өмірге келген уақыты

Если П и Ж аборигены, то она должны всегда говорить правду.Значит Ж(абориген)говорит правду, что он абориген и П передаёт правду. Он абориген.

Если П иЖ пришельцы, то они должны врать.Значит Ж говорит (неправду) я абориген, и П передаёт он пришелец. ---несоответствует контексту.

Если П-пришелец,а Ж-абориген, то П должен врать, а Ж говорить правду. Значит Жсказал правду " я абориген", а проводник передал он пришелец. --- несоответсвует контексту.

Если П- абориген, а Ж пришелец, то П всегда говорит правду, а Ж неправду. Значит  сказал" неправду "я абориген" а П передал он абориген.

В обоих случаях проводник абориген.

 

П- проводник

Ж - житель

1.

program okay; {здесь я думаю, все понятно}

var i, count :byte; {i - будет счетчиком, в переменную count мы запишем количество четных чисел}

begin

count:=0; {пока что мы не нашли ни одного четного числа}

for i:= 10 to 99 do {перебираем двузначные числа, т. е. от 10 до 99}

If i mod 2 = 0 then count := count+1; {если остаток от деления на 2 (mod) равен нулю, то число четное и мы к количеству найденых прибавляем единицу}

write(count); {выводим на экран найденое количество четных чисел}

end. {конец программы}

 

2.

program okay; {здесь я думаю, все понятно}

var i, count :byte; {i - будет счетчиком, в переменную count мы запишем количество чисел с четной первой цифрой}

begin

count:=0; {пока что мы не нашли ни одного нужного числа}

for i:= 10 to 99 do {перебираем двузначные числа, т. е. от 10 до 99}

If (i div 10) mod 2 = 0 then count := count+1; {находим целую часть от деления числа на 10 (т. е. первую цифру) и остаток от деления ее на 2 равен нулю, то эта цифра четная}

write(count); {выводим на экран найденое количество искомых чисел}

end. {конец программы}

 

3.

program okay; {здесь я думаю, все понятно}

var i :byte; {i - будет счетчиком}

begin

for i:= 10 to 99 do {перебираем двузначные числа, т. е. от 10 до 99}

If (i mod 3 = 0) and (i mod 4 = 0) then write(i); {проверяем кратность путем нахождения остатков от деления на 3 и 4 и выводим число на экран в случае выполнения условия кратности}

end. {конец программы}

 

4.

program okay; {здесь я думаю, все понятно}

var i : integer; {берем тип integer, т. к в тип байт не входят все трехзначные числа, i - будет счетчиком}*

a, b, c : byte; {a - цифра сотен, b - десятков, c - единиц}

begin

for i:= 100 to 990 do begin {перебираем трехзначные числа, т. е. от 100 до 999}

a:=i div 100; {находим целую часть от деления числа на 100, т. е. цифру сотен}

b:=(i div 10) mod 10; {находим двузначное число являющееся целой частью данного числа на 10, а затем остаток от деления на 10, таким образом получаем число десятков}

c:=i mod 10; {находим остаток от деления числа на 10, т. е. цифру единиц}

if (a=b) and (b=c) then write(i); {Проверяем, выполняется ли условие равенства цифр числа и в случае выполнения, выводим данное число на экран}

end; {закрываем цикл}

end. {конец программы}

 

* - тип byte может принимать значения от 0 до 255, а тип integer - от -32767 до 32768.

Прим: все что выделено жирным, это код программы. Все остальное - это пояснение и вставлять их в программу не нужно.