Для того что бы вводить нужные нам знаки
к примеру : даже сейчас я пользуюсь
клавиатурой
Ну раз значения всего 2, то 2 ^ 5 = 32 последовательности.
1)
Var i:integer;
Begin
for i := 100 to 999 do
if (i mod 15 = 11) and (i mod 11 = 9)
then writeln(i);
End.
2)
Var i,n,s:integer;
Begin
read (n);
s := 1;
for i := 1 to n do
s := s * i;
write(s);
End.
3)
Var i,j,k:integer;
Begin
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
if i*i*i+j*j*j+k*k*k=i*100+j*10+k
then writeln(i*100+j*10+k);
End.
мусс медовый
<span>1.Яичные желтки растереть с медом.</span>
<span>2.Добавить 50 г. меда и размешивать</span>
<span>3.если получилась густая однородная масса, то переход на 4 пункт, иначе на 2 пункт.</span>
<span>4.П<span>оставить ее на слабый огонь и, непрерывно помешивая, довести до густоты меда. 5.Затем снять с огня и охладить.</span></span>
<span><span>Цикл получается в 2,3 пункте</span></span>