Умные люди! Помогите решить задачу! Опции

[Дмитрий123]

Преподаватель просит объяснить суть программы что где откуда, объясните пожалуйста по пунктам, завтра экзамен, сам я учуть на журналистике, с математикой проблемы (((
составьте программу, выясняющую, все ли цифры в десятичной записи натурального числа различны:

program q(input,output);
var m,i:integer; d,p;string;
begin
  write ('Введите m '); readln(m);
  str(m,p); d:='все';
  for i:=1 to length(p)-1 do
   for j:=1 to length(p)-1 do
    for j:=i + 1 to length(p) do
      if copy(p,i,1) = copy (p,i,1) then d:='не все';
  writeln(d)
end.

Надо было раньше думать над объяснением и изучением Паскаля - завтра тебе никакие объяснения не помогут, т.к. достаточно одного/двух дополнительных вопросов и ты засыпался...

Сообщение отредактировано: APAL - 16.06.2013 23:55