P = 1, i = 1
<h2>1 цикл</h2>
P = P · i = 1 · 1 = 1
i = i + 1 = 1 + 1 = 2
2 > 3 ? false
<h2>2 цикл</h2>
P = P · i = 1 · 2 = 2
i = i + 1 = 2 + 1 = 3
3 > 3 ? false
<h2>3 цикл</h2>
<u>P = P · i = 2 · 3 = 6</u>
i = i + 1 = 3 + 1 = 4
4 > 3 ? True
Выход из цикла
<h2>Ответ</h2>
B
Привет, как настроение? Меня зовут Алина, мне 18 лет. Хочу познакомиться с хорошим парнем..
Если тебе это интересно, напиши мне тут - http://onetimesex.com
Мой ник - KissKa
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
<span>Вариант в Excel.
Внизу ярлыки листов с задачами. В строке формул проверяем функции. Лист защищен
без пароля, чтобы не повредить формулы. </span>