МР
Максим Русаков
обработка числовых данных (PASCAL)
ВЫВЕСТИ ТОЛЬКО ТЕ ЦИФРЫ, значение которых совпадает с местом (разрядом) этой цифры в числе. каждую цифру использовать только один раз
ВЫВЕСТИ ТОЛЬКО ТЕ ЦИФРЫ, значение которых совпадает с местом (разрядом) этой цифры в числе. каждую цифру использовать только один раз
Var cifra,i:integer;
cf:string;
begin
readln(cifra);
cf:=inttostr(cifra);
for i:=1 to length(cf) do begin
if inttostr(i)=cf [ i ] then writeln('cifra:'+cf [ i ]+' Index:',i);
end;
end;