<span> 1)зрительная,тоесть когда мы что-то читаем.2)Слуховая,когда мы слышим информацию3)Обанятельная4)осязательная.</span>
1)
var a,a1,a2:integer;beginreadln(a);a1:=strtoint(copy(inttostr(a),1,1));a2:=strtoint(copy(inttostr(a),2,1));if a1>a2 then write(a1,'>',a2) elsewrite(a1,'<',a2);end.
2)
var a,a1,a2,a3,a4,s:integer;beginreadln(a);a1:=strtoint(copy(inttostr(a),1,1));a2:=strtoint(copy(inttostr(a),2,1));a3:=strtoint(copy(inttostr(a),2,1));a4:=strtoint(copy(inttostr(a),2,1));s:=a1+a2+a3+a4;if s mod 3 = 0 then write('Сумма цифр ',a,'=',s,' - кратно 3')else write('Сумма цифр ',a,'=',s,' - не кратно 3');end.
1)9литровое 2)5-литровое ( так удобнее писать)
набираем 1 ведро
переливаем из 1 до краев во 2 (в 1 остается 4 литра)
выливаем 2ведро
переливаем из 1 во 2
набираем 1
переливаем из 1 <span>до краев во 2 (в 1 остается 8 литров)
</span><span>выливаем 2ведро
</span>переливаем из 1 <span>до краев во 2 (в 1 остается 3 литра)
</span><span>выливаем 2ведро
</span><span>переливаем из 1 во 2
</span>набираем 1 ведро
переливаем из 1 до краев во 2 (в 1 остается 7 <span>литра)
</span>Готово!
в 1 ведре 7 литров
Потому что условный оператор проверяет выражение на истинность. Если истина то выполнится одна ветка, если ложь то другая ветка конструкции ветвления.
Содержимое массива будет таким (по шагам):
0) 6 4 5 -1 2 0 4 -4 -2 1
1) 6 3 5 -1 2 0 4 -4 -2 1
2) 6 3 1 -1 2 0 4 -4 -2 1
3) 6 3 1 0 2 0 4 -4 -2 1
4) 6 3 1 0 2 0 4 -4 -2 1
5) 6 3 1 0 2 2 4 -4 -2 1
6) 6 3 1 0 2 2 -2 -4 -2 1
7) 6 3 1 0 2 2 -2 -4 -2 1
8) 6 3 1 0 2 2 -2 -4 3 1
Как можно видеть, после всех преобразований массива (на последнем шаге) он содержит шесть чётных чисел (6, 0, 2, 2, -2, -4).
Ответ: 6