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>
Var a:array[1..5,1..10] of integer;
b:array[1..5,1..10] of real;
i,max:integer;
begin max:=0;
for i:=1 to 5 do
for j:=1 to 10 do begin
read(a[i,j]);
if abs(a[i])> max then max:=a[i];
end;
for i:=1 to 5 do
for j:=1 to 10 do begin
b[i,j]:=a[i,j]/max
write(a[i,j]);
end;
end.
<span>var a, b: integer;
begin<span>
writeln(<span>'Введите часы: '</span>);</span>
readln(a);<span>
writeln(<span>'Введите минуты: '</span>);</span>
readln(b);<span>
if (a > 6) and (a < 10) then writeln(<span>'Утро'</span>);
</span><span> if (a = 10) and (b = 0) then writeln(<span>'Утро'</span>);
</span><span> if (a = 6) and (b >= 30) then writeln(<span>'Утро'</span>);</span><span>
if (a > 10) and (a < 16) then writeln(<span>'День'</span>);</span><span>
if (a = 10) and (b >= 1) then writeln(<span>'День'</span>);</span><span>
if (a = 16) and (b <= 30) then writeln(<span>'День'</span>);</span><span>
if (a > 16) and (a < 22) then writeln(<span>'Вечер'</span>);</span><span>
if (a = 22) and (b = 0) then writeln(<span>'Вечер'</span>);</span><span>
if (a = 16) and (b >= 31) then writeln(<span>'Вечер'</span>);</span><span>
if (a > 22) or (a < 6) then writeln(<span>'Ночь'</span>);
</span><span> if (a = 22) and (b >= 1) then writeln(<span>'Ночь'</span>);
</span><span> if (a = 6) and (b <= 30) then writeln(<span>'Ночь'</span>);
</span><span>end.</span></span>
Основание системы счисления = 3:
120(3) = 1*3^2+2*3 = 9+6 = 15
110(3) = 1*3^2+1*3 = 9+3 = 12
1000(3) = 1*3^2 = 27
15+12=27
