Не могу понять, в чем ошибка???File not found

[VIK_aka_TOR]

Сообщение от Hacker19_90

и что? В файл то вы не пишите! И не читаете!
Вы "читаете" с клавы и "записываете" на экран!

будем надеятся что он он попросту не дшел ещё до этого пути реализации))) да... файлы он не использует... это так)

в файле я там все подправил что нужно... если не работает то судя по всему паскаль корявый...)

[semechKO]

Хакер, да, я понял уже... Раз ты рубишь в директивах, так полскажи где что менять?

[VIK_aka_TOR]

Сообщение от semechKO

Не поверишь,.... File not found. Мб и правда там директиву куда то нужно записать?

надеюсь ты не в архиве запускал?...

[VIK_aka_TOR]

  var
  a,b,n,i,c,d,min,imin:integer;
  input, output : text;
  begin
  assign(input,'input.txt');
  assign(output,'output.txt');
  reset(input);
  
  read(input,n,a,b);
if(a<=100)and(a>=1)and(n<=100)and(n>=1)and(b>=1)and(b<=100) then
imin := 0;
min :=100000;
for i:=1 to n do 
begin
readln(input,c,b);
if ((c>=1) and (c<=100) and (b>=1) and (b>=1)) then
if (a*c+b*d<min) then
begin
imin :=i;
min:=a*c+b*d;
end;
end;
rewrite(output);
writeln(output,imin);
close(input);
close(output);
end.

собственно вот рабочий... ошибки твои выделил..

[semechKO]

да, в архиве, я идиот)хд нет , отдельно конечно же)

[VIK_aka_TOR]

Сообщение от semechKO

да, в архиве, я идиот)хд нет , отдельно конечно же)

ну... у каждого свои проблемы...
линукс или винда?...

[semechKO]

там в if , где b ошибка у тебя. Вайл все равно не находит.

[semechKO]

винда.....

[VIK_aka_TOR]

с b как раз таки ошибка у тебя... согласен... у меня в ифе... но у тя при считывании тогда... так как d ты не разу не считываешь... а файл не находит... хз... пересохрани файл... другой паскаль возьми...

[semechKO]

ты уверен что рабочий? просто в ридлн должен с и d быть вроде, а не c и b ?