Var
A,r1,r2,r3,r4:integer;
Begin
For A:= 1000 to 9999 do
Begin
r1:=A div 1000;
r2:=(A div 100) mod 10;
r3:=(A div 10) mod 10;
r4:=A mod 10;
if (r1<>r2)and(r1<>r3)and(r1<>r4)and(r2<>r3)and(r2<>r4)and(r3<>r4) then
Write(A,' ')
End;
End.
Компьютер - устройство или система, способная выполнять, чётко определённую, изменяемую последовательность операции. Электронно - вычислительная машина
Работает благодаря процессору, системному блоку, клавиатуре, мышке...
3 Кбайта = 3 * 2^10 байта = 3 * 2^10 * 2^3 бита
k = 2^12
I = k*i, где I - <span>информационный о</span><span>бъемом, k - кол-во символов, i -отводимое количество бит на символ
i = I/k = 3*2^13/2^12 = 3*2 = 6;
Мощность алфавита N = 2^i, N = 2^6 = 64
Ответ: 64 символа
</span>
Яша Арбузов
Сережа Тополев
Дима Иволгин
Лена Волкова
Коля Белкин
Роберт Щукин
Валя Стрелина
Катя Арбузова
Марина Яблочкова
Естественно если она была последней она поставила себя первой а всех остальных поставила наоборот например
Катя Тарасова
Саша Глущенков
Яланский Даниил
первая стоит Катя второй Саша третий Данил такая же ситуация он хочет быть первым и переставил местами Данил первый Саша второй Катя третяя себя с катей местами поменял а Сашу оставил.Понял?
1.
var n,p:integer;
begin
write('n='); readln(n);
p:=1;
while n<>0 do begin
p:=p*(n mod 10);
n:=n div 10;
end;
writeln('p = ',p);
end.
Пример:
n=1234
p = 24
2.
var n,k:integer;
begin
write('n='); readln(n);
k:=0;
while n<>0 do begin
k:=k+1;
n:=n div 10;
end;
writeln('k = ',k);
end.
Пример:
n=456123
k = 6
3.
var n,s,i:integer;
begin
write('n='); readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln('s = ',s);
end.
Пример:
n=5
s = 15
