Дано
К=210
<span>N=64 </span>
<span>Ic-?
</span>Решение
<span>Ic=К*I </span>
<span>N=2^I (2 в степени I) </span>
<span>64=2^6 </span>
<span>I=6 </span>
Ic=210*6=<span>1260</span> бит
Есть много разных способов решения этой задачи. Например:
var n:integer; b:boolean; m:set of 0..9;
begin
write('n='); readln(n);
m:=[];
b:=false;
while (n>0) and not b do
if n mod 10 in m then b:=true else begin m:=m+[n mod 10]; n:=n div 10; end;
if b then writeln('Да') else writeln('Нет');
end.
Пример:
n=123432
<span>Да
Вот ещё вариант:
var n,m,n1,m1,b:integer;
begin
write('n='); readln(n);
b:=0;
while n>0 do
begin
m:=n mod 10;
n:=n div 10;
n1:=n;
while n1>0 do
begin
m1:=n1 mod 10;
if m=m1 then b:=1;
n1:=n1 div 10;
end;
end;
if b=1 then writeln('Да') else writeln('Нет');
end.</span>
2,6,8,10,12,14,16,18
Я дал ответ на твой вопрос.
#encoding: utf-8
n = input ("Сколько строк вам напечатать (n > 0) ?")
if n <= 0 :
print "До свидания!"
else:
k = 10
for i in range(n + 1):
for j in range(i):
print k,
k += 1
print
3. pascal
var s, a: integer;
g:longint;
begin
s:=0;
readln(g);
while g > 0 do
begin
a:=g mod 10;
g:=g div 10;
s:=s+a;
end;
writeln(s)
end.