For i:= 110 downto 90 do
write(" ",i);
Это URL - Uniform Resource Locator (или <span>Universal Resource Locator)</span>
F =468,75 Кбайт =468,75 *2^13 бит
D = 16 бит =2^4 бит - глубина звука
H =48 КГц =48*1000= 3*2^4 *1000 Гц - частота звука (1/c)
t=F : (D *H)
t =468,75 *2^13 : (2^4 *3 *2^4 *1000) = 468,75 *2^5 :3 :1000=
=156,25*32 :1000 = 5 000 : 1 000=5 (c)
ответ: t =5 секунд
friends = []
friends_count = 0
print('Вводите имена своих друзей по очереди')
print('Чтобы закончить введите 1')
while True:
name = input()
if name == '1':
break
friends += [name]
friends_count += 1
print('Список друзей начиная со второго:')
for i in range(1,len(friends)):
print(friends[i])
Var x,y,z,f:integer;
begin
write('Введите число: ');
readln(x);
while x>0 do
begin
y:=x mod 10;
z:=x div 10;
while z>0 do
begin
if (z mod 10)=y then f:=1;
z:=z div 10;
end;
x:=x div 10;
end;
if f=1 then writeln('Верно, есть одинаковые цифры')
else writeln('Нет одинаковых цифр')
<span>end.
Если использовать строковые ф-ии, то программа будет проще:
var
i,k,f:integer;
s,t:string;
begin
write('Введите число: ');
readln(s);
k:=length(s);
for i:= 1 to k do
begin
t:=copy(s,i+1,k-i+1);
if pos(s[i],t)>=1 then f:=1;
end;
if f=1 then writeln('Верно, есть одинаковые цифры')
else writeln('Нет одинаковых цифр')
end.</span>
