Форум гитаристов

Пасаны у меня еще 1 вопрос про Pascal 

Немного лишнего при переборе разрядов, но так должно быть быстрее, т.к. сравнивать числа быстрее, чем плодить ifы. Ну и d и p можно просто писать 2 и 5, у меня чото фрипаскаль ругался.

почти, но у меня что-то про индентификатор говорит

end после последнего writeln надо. даже перепечатать уже лень правильно

Блин почти пришли к успеху) но при запуске выдает такую хрень

Скопируй-вставь. Если не заработает, то учи паскаль
program test;
uses crt;
var
i,sch,d,p,r1,r2,r3:integer;
otv: array [1..10] of integer;
begin
sch:=1;
d:=2;
p:=5;
for i:=10 to 200 do
  begin
    r3:=(i div 100);
    r2:=((i mod 100) div 10);
    r1:=((i mod 100) mod 10);
    if (r1=d) or (r2=d) or (r3=d) then
      begin
        if (r1=p) or (r2=p) or (r3=p) then
          begin
            otv[sch]:=i;
            sch:=sch+1
          end
      end;
  end;
for i:=1 to (sch-1) do
  begin
    writeln(otv[i])
  end;
readln;
clrscr;
end.У меня всё работает:

acaN спасибо работает   ты настоящий панда

Может я пропустил, но все-таки спрошу: нафига вам паскаль?

мне он нафиг не нужен   он нужен для галочки в универе

а что еще в универах преподавать тем кому паскаль нафиг не нужен, ц\ц++ под никсы?

@Ilya@, это лицензия или активированная? если активированная, возможно лоадер сбоит...

Ребята, какой нах#й Паскаль? какое еще Delphi? Вышвырните это старое дер#мо на помойку и не засоряйте мозги пережитками прошлого. Жесть 

это в министерство образования нужно отправить 

@Ilya@, это лицензия или активированная? если активированная, возможно лоадер сбоит...

это лицензионная активированая боксовая семерка. При чем повторную проверку подлинности не проходит, даже если вернуть всё как было.
Помгоает откат системы (хорошо делаю точки восстановления, прежде чем лезу в реестр). После него проверку на подлинность снова проходит. Только этот ключ реестра трогал. Ни чего более.

кстати домашняя расгиреная аткая домашняя 
пока чего не хватает, так это групповых политик. Решил залезть туда, а их нету  и невозможность подключиться к ней как к удаленному рабочему столу. Если атм еще и реестр менять нельзя, то это вообще УГ редкостное