Ответ:
Дело мастера боится
Объяснение:
у человека, досконально знающего своё дело, ремесло, даже сложная работа будет ладиться и получаться.
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>
<em>// PascalABC.NET 3.3, сборка 1549 от 17.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=BigInteger(0);
var f:=BigInteger(1);
for var i:=1 to ReadInteger('n=') do begin
f*=i;
s+=f
end;
Writeln('S= ',s)
end.
<u>Примеры</u>
n= 5
S= 153
n= 20
S= 2561327494111820313
n= 100
S= 94269001683709979260859834124473539872070722613982672442938359305624678223479506023400294093599136466986609124347432647622826870038220556442336528920420940313
import random
list2 = [random.randrange(1, 3, 1) for i in range(9)]
list1 = ["Иванов", "Евсеев" , "Сафонов", "Попов", "Яловой", "Шуфрич", "Сыпченко", "Доронин", "Орехов"]
list_first = []
list_second = []
random.shuffle (list1)
i = 0
while i < len(list2):
if (list2[i] == 1):
list_first.append(list1[i])
else:
list_second.append(list1[i])
i += 1
print("Первая команда: ",list_first)
print("Вторая команда: ",list_second)
Канада, Бразилия, Япония - это страны.
