Var i, n:integer; b:array[1..3] of integer;begin write('Type integer: '); readln(n); if n<0 then n:=-n; // уничтожение знака числа repeat i:= i + 1; b[i] := (n mod 10); // вывод последней цифры числа n:= n div 10; // удаление последней цифры числа until n=0; if b[3] > b[2] thenwriteln('Цифра сотен больше десятков ',b[3] - b[2])elsewriteln('Цифра сотен меньше десятков ',b[2] - b[3]);if b[2] > b[1] thenwriteln('Цифра десятков больше единиц ',b[2] - b[1])elsewriteln('Цифра десятков меньше единиц ',b[1] - b[2]);end.
Наука+учеба=работа
Следовательно убираем не нужное. Повторяющееся.
нука+уче=рот
у встречается 2 раза. допустим это ноль.
нка+че=рот
Под эти буквы, можно поставить любые числа. Но что бы если нка это например 185, то че должно быть больше 15. Что бы Например 94. В итоге ответ 279. Цифры совпадают по буквам, нормально.
1. 415(10)=110011111(2) = 637 (8) =19F(16)
2. 10011(2) =19(10) 314(8)=204(10) A8(16)=168(10)
3. a) 23(16)=100011(2)
б) АС(16)=254(8)
в) 10111101(2)=275(8)
г) 101011101(2)=ВD(16)
д) 101010(8)=1000001000001000(2)
е)23(10)=17(16)
Приложение.......................................................
1)FALSE (т.к. X>Y)
2)TRUE (x<y,x не равен y)
3)FALSE(x>y
)<span>4)TRUE(т.к. x=y, x не равен y)</span>
