Предмет: Информатика,
автор: meganeRS
вводится число А и 7 целых чисел, определить, каким по счету в последовательности будет число а , если его нет, то вывести ноль
решите пожалуйста способом паскаля
Ответы
Автор ответа:
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.
Похожие вопросы