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>
Напиши б,в,г только словами
алг и кц - определение самого алгоритма
объявляются целочисленные переменные a, b,t
пользователем вводится переменная a
a присваивается переменной t
0 присваивается переменной b
начало цикла с условием, что t не должен равняться 0
остаток от деления числа t на 10 присваивается переменной b
деление с остатком числа t на 10 присваивается переменной t
Ответ:
http://lumpics.ru/change-size-of-slide-in-powerpoint/
Объяснение:
1 символ = 1 байт
40*50*10=20000 символов всего
12500 байт = 1562,5 бит
20000:1562,5=13 (приблизительно)
N-мощность алфавита
2^13=8192
Ответ: N=8192