вводится число А и 7 целых чисел, определить, каким по счету в последовательности будет число а , если его нет, то вывести ноль решите пожалуйста способом паскаля 

Есть ответ
17.12.2022
424

Ответ


Program pr;uses crt;Var a,b,x1,i:integer;Beginx1:=0;Writeln('vvedite chislo');readln(a);Writeln('vvedite posledovatelnost');For i:=1 to 7 doBeginreadln(b);if a=b then x1:=i;end;Writeln('¹=',x1);readln;end.

 

Если номер последовательность выводить нужно каждый раз когда встречается то число тогда так

 

 

Program pr;uses crt;Var a,b,x1,i:integer;Beginx1:=0;Writeln('vvedite chislo');readln(a);Writeln('vvedite posledovatelnost');For i:=1 to 7 doBeginreadln(b);if a=b then Writeln('¹=',i);end;readln;end.

 

 


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
17.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.