Program dfg;
var
b,x,y:integer;
a:array [1..10] of integer;
d:real;
begin
randomize;
for x:=1 to 10 do
begin
y:=random(10);
a[x]:=y;
writeln ('числа случайные = ',y);
end;
a[1]:=a[1] xor a[10];
a[10]:=a[1] xor a[10];
a[1]:=a[1] xor a[10];
for x:=1 to 10 do
begin
writeln ('числа случайные после смены = ',a[x]);
end;
<span>end.</span>
Предлагаю пример в Excel
Копируете необходимый элемент, задаете параметры на входе, получаете таблицу истинности на выходе.
Сообщение по информатике на тему : «Т9-помощник или враг»
<span> Соловьева Олеся</span>
Вот все говорят: «У меня Т9, Т9… ». А если разобраться по большому счету… Что это такое? Это предугадывающая система набора текстов для мобильных телефонов, которую придумала и разработала компания Тэгик Коммуникэйшен. В принципе, в плане изобретения, они, конечно же, молодцы! Это ноу-хау позволяет набирать наиболее часто употребляемые слова с удвоенной скоростью. Но в итоге, получается не совсем хороший результат. Если не перепроверить и не исправить допустимый вариант, можно отправить «Бамбардию киргуду». Текст может потерять значение или вообще приобрести комичный характер. В «одноклассниках» и в «контакте» такие случаи люди выкладывают как анекдоты. Вот, например:
-Ну что решили? Будете у нас размещаться?
Т9: Пока ничего. Я жру руководителя направления.
-Приятного аппетита, конечно, но кто теперь будет решать вопрос о размещении?
ИЛИ:
-Ты знаешь дорогой, я здесь за месяц похудела на три килограмма…
Т9: Ах, ты моё слонышко!
-Вот только не надо врать, что это опечатка!!!
Таких приколов в интернете множество, можно смеяться целый день. Но суть Т9 понятна. Каждый для себя сам решает пользоваться этой функцией в телефоне или отключить ее. Я лично не хотела бы, чтобы мои сообщения перевирались, а над чужими приколами, почему бы и не посмеяться!!!
Var a:integer;
begin
readln(a);
if a mod 2=0 then a:=a*a
else a:=a*a*a;
writeln('a = ',a);
end.
Пример:
18
<span>a = 324</span>
