Var
C:array[0..9] of byte;
A:longint;
i:byte;
Begin
For i:= 0 to 9 do
C[i]:=0;
Repeat
Write('Введите натуральное число: ');ReadLn(A);
Until A>0;
i:=Trunc(Ln(A)/Ln(10));
if frac(Ln(A)/Ln(10)) > 0 then i:=i+1;
For i:= 1 to i do
Begin
C[A mod 10]:=C[A mod 10] +1;
A:=A div 10
End;
For i:= 0 to 9 do
if C[i]>1 then A:=1;
if A = 1 then
Begin
Write('Повторяются: ');
For i:= 0 to 9 do
if C[i] > 1 then
Write(i,' ')
End
End.
Пример работы программы:
Введите натуральное число: 131350788
Повторяются: 1 3 8
При условии что знаком "|" обозначается операция ИЛИ, а знаком "&" - операция И, то результат будет выглядеть вот так:
А - отобразит страницы, которые одновременно относятся и к контрольным, и к зачётам, и к экзаменам - самый узкий диапазон поиска.
Г - отобразит страницы, относящиеся к контрольным и зачётам одновременно. Шире, чем А, но уже, чем остальные варианты.
Б - отобразит страницы, относящиеся к контрольным и зачётам одновременно, а также к экзаменам;
В - отобразит страницы, относящиеся к контрольным, или к зачётам, или к экзаменам.
Таким образом, последовательность запросов будет выглядеть следующим образом: А - Г - Б - В.
Более наглядное объяснение вывода страниц на картинке.
первая
var
a : longint := 2;
begin
write('первые 16 степеней числа ', 2,' : ');
for var i := 1 to 16 do begin
a *= 2;
write(a, ' ');
end;
end.
втрая
var
a, p, o, n : integer;
begin
write('введите 10 чисел : ');
for var i := 1 to 10 do begin
read(a);
if a < 0 then o += 1 else if a > 0 then p += 1 else n += 1;
end;
writeln('положительных = ', p);
writeln('отрицательных = ', o);
writeln('нулю = ', n);
end.
третья
var
n, s : integer;
begin
write('введите n=');
readln(n);
for var i := 1 to n do s += i;
writeln('сумма чисел s=', s);
end.
Первым официальным чемпионом мира по шахматам стал Вильгельм Стейниц . Первый в истории матч за звание чемпиона мира проходил в 1886 году и закончился победой Стейница, выигравшего 10 партий при пяти поражениях и пяти ничьих
267810/3=89270 остаток 0
89270/3=29756 ост.2
29756/3=9918 ост.2
9918/3=3306 ост.0
3306/3=1102 ост.0
1102/3=367 ост.1
367/3=122 ост. 1
122/3=40 ост. 2
40/3=13 ост. 1
13/3=4 ост 1
4/3=1 ост1
<span>267810</span>₁₀=111121100220₃