Предмет: Информатика,
автор: alesak764
Паскаль
на вход программы поступает кол-во чисел n(1<=n<=1000000) целочисленной последовательности x1,x2,...xn.Напишите программу,которая находит в данной последовательности наибольшее число,в записи которого содержатся цифры 1 и 7 и номер этого числа в последовательности ,а если таких чисел нет ,то вывести 0
Ответы
Автор ответа:
0
program naib_v_posl_s_1_i_7;
var
n,i,m,x,x1,k:int64;
f1,f7:boolean;
begin
read(n);
m:=0;
for i:=1 to n do
begin
read(x);
x1:=x;
while x1>0 do begin
if (x1 mod 10=1)
then f1:=true
else
if (x1 mod 10=7)
then f7:=true;
x1:=x1 div 10;
end;
if (f1=true)and(f7=true)then
if m<x then
begin
m:=x;
k:=i;
end;
f1:=false;
f7:=false;
end;
if m=0 then
write('no')
else
write(m, ' ',k)
end.
Похожие вопросы
Предмет: Русский язык,
автор: zarubin
Предмет: Русский язык,
автор: darst
Предмет: Русский язык,
автор: darst
Предмет: Геометрия,
автор: Vitalik5992
Предмет: Химия,
автор: MikalevskayaNat