Предмет: Информатика, автор: meganeRS

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

Ответы

Автор ответа: garfild214
0

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

 

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

 

 

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

 

 

Похожие вопросы
Предмет: Алгебра, автор: rasher2rbo