Флеш-накопитель<span> </span><span>компакт-диск </span>жесткий диск
Var n,m,a,b,c,d:integer;
begin
write('n = ');
readln(n);
a:=n div 1000;
b:=n div 100 mod 10;
c:=n mod 100 div 10;
d:=n mod 10;
m:=d*1000+c*100+b*10+a;
writeln('m = ',m);
end.
Пример:
n = 1762
m = 2671
1.
При 101 значение равно 1 в остальных 7 комбинациях 0
2.
Все 1, тождественная 1
3.
<span>При 00 значение равно 1
в остальных 3 комбинациях 0</span>
<span>
См. приложение.
</span>
1)
uses crt;
var i:integer;
A:array[0..15] of integer;
begin
For i:= 0 to 15 do
A[i]:= i+1;
For i:= 0 to 14 do
A[i]:= A[i+1];
For i:=0 to 15 do
write(A[i],' ');
end.
2) Перемещает первый элемент массива в конец.
2) import math
a = int(input())result = 1sqrt = 0
for i in range(a, a+6): result *= i sqrt += 1 result = math.pow(result, 1/sqrt)print ("result :", result)