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

[Дмитрий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

[APAL]

Я думаю Volvo имел в виду не сложность в количестве используемой памяти и числа итераций программы (ТС судя по всему до этого еще не скоро "дойдет"), а сложность в реализации... а как говорится, "краткость - сестра таланта".

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

Сообщение отредактировано: APAL - 17.06.2013 19:39