Есть много разных способов решения этой задачи. Например:
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>
1)program gt;
var n:integer;
begin
readln(n);
if(n>17)then writeln('YES')else writeln('NO');
end.
2) program gt;
var x,y:real;
begin
readln(x);
if(x>0)then y:=x-2;
if(x<0)then y:=x*x;
writeln(y);
end.
3)
program gt;
var n:integer;
begin
case n of
1: writeln('RED');
2: writeln('orange');
3: writeln('yellow');
4:....
5:...
6:...
7:....
end;
end.
5Баллов слишком мало.
Один бит информации уменьшает неопределенность в два раза.
А) 1999
Б) 978
В) 1147
В римской системе счисления I обозначает 1, V обозначает 5, X — 10, L — 50, C — 100, D — 500, M — 1000. Например, число 3 в римской системе счисления будет обозначаться как III. Однако не все так просто, и она не является полностью непозиционной системой счисления, потому что в римской системе счисления есть дополнительное правило, которое влияет на величину, которую обозначает цифра, в зависимости от ее положения. Правило это запрещает употреблении одной и той же цифры более 3 раз подряд, поэтому три это III, а четыре это уже IV, и I(1), стоящая перед большей цифрой V(5), обозначает вычитание, то есть фактически равна -1.