<span>uses</span> crt;
<span>var</span> a<span>,</span>mn<span>,</span>n<span>,</span>imn<span>:</span><span>integer</span>;
<span>begin</span>
clrscr;
<span>writeln</span><span>(</span><span>'Введите натуральные числа, окончание ввода 0:'</span><span>)</span>;
<span>repeat</span><span>readln</span><span>(</span>mn<span>)</span>;
<span>until</span> mn><span>0</span>;
n<span>:=</span><span>1</span>;
imn<span>:=</span><span>1</span>;
<span>repeat</span>
<span>repeat</span>
<span>readln</span><span>(</span>a<span>)</span>;
<span>until</span> a><span>=</span><span>0</span>;
n<span>:=</span>n<span>+</span><span>1</span>;
<span>if</span><span>(</span>a<><span>0</span><span>)</span><span>and</span><span>(</span>a<mn<span>)</span><span>then</span>
<span>begin</span>
mn<span>:=</span>a;
imn<span>:=</span>n;
<span>end</span>;
<span>until</span> a<span>=</span><span>0</span>;
<span>write</span><span>(</span><span>'Минимальное из чисел, не считая 0='</span><span>,</span> mn<span>,</span><span>' его номер='</span><span>,</span>imn<span>)</span>;
<span>readln</span><span>end</span>.
Встечаемся в полдень около реки там будет укрытье (лагерь)
В первой игре слова наоборот
Во второй игре цифра соответствует номеру буквы в аофавите первой буквы в слове
Var
A,B,i:integer;
k:byte;
Begin
i:=0;
k:=0;
Repeat
Read(A);
i:=i+1;
if (i>2)and(i<5) then
Begin
B:=Abs(A);
if (9<B)and(B<100)and(B mod 10 = 2) then k:=k+1;
End;
Until (A = 0)or(i>=5);
if A<>0 then
Repeat
Read(A);
Until A = 0;
WriteLn(k)
End.
Если я правильно Вас поняла, то ИНЖИР))))))))))))))))
