задача <<загадка>>

[tata7393]

помогите пожалуйста!!!!на языке паскаль.
задача по программированию:
Задача «Загадка»
Петя и Катя – брат и сестра. Петя – студент, а Катя – школьница. Петя помогает Кате по математике. Он задумывает два натуральных числа X и Y (X,Y≤1000), а Катя должна их отгадать. Для этого Петя делает две подсказки. Он называет сумму этих чисел S и их произведение P. Помогите Кате отгадать задуманные Петей числа.
Формат входных данных
Входной файл ZAGADKA.IN содержит два натуральных числа S и P, разделенных пробелом.
Формат выходных данных
В выходной файл ZAGADKA.OUT выведите два числа Х и Y, загаданные Петей. Числа следует вывести в порядке неубывания своих значений, разделенные пробелом. Если таких чисел не существует, следует вывести «NO».
мои наработки:

program zagadka;
var x,y,s,p:integer;
    f:text;
begin
assign(f,'zagadka.in');
reset(f);
read(f,s,p);
assign(f,'zagadka.out');
rewrite(f);
for x:=1 to 1000 do
for y:=x to 1000 do
if(x+y=s)and(x*y=p) then
write(f,x,' ',y);
close(f);
end.

у меня не получается выводить ответ no.как это сделать??
пример на ответ no :во входном файле: 50 30




________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!

Модератор.

[BDA]

var s, p, i: longint;
t: boolean;
 
begin
  assign(input, 'zagadka.in); reset(input);
  assign(output, 'zagadka.out'); rewrite(output);
  read(s, p);
  t:=false;
  for i:=1 to s do
  if i*(s-i)=p then begin
    t:=true;  
    break;
  end;
  if t then
    writeln(i,' ',s-i)
  else
    writeln('no');
end.

[Poma][a]

program zagadka;
var x,y,s,p:integer;
f:text;
begin
assign(f,'zagadka.in');
reset(f);
read(f,s,p);
assign(f,'zagadka.out');
rewrite(f);

rx := 0;
ry := 0;

for x:=1 to 1000 do
for y:=x to 1000 do
if(x+y=s)and(x*y=p) then begin
     rx := x;
     ry := y
end;
if rx <> 0 then
    write(f,rx,' ',ry)
else
    WriteLn (f, 'no');
close(f);
end.

[Poma][a]

BDA, Вы как всегда впереди планеты всей
Ток наверное i нужно где-то сохранить, т.к. после завершения цикла for. Никто не знает чему будет = счетчик цикла (и не важно как он(цикл) завершился).

[Serge_Bliznykov]

ну Вы почти всё правильно написали.
Единственное, не проверяете нашолся вариант или нет...
в случае, когда сумма равна 50 и произведение равно 30,
программа должна написать в файле 'zagadka.out' NO

я предлагаю такой вариант решения задачи:

program zagadka;
var x,y,s,p:integer;
    k : boolean;
    f:text;
begin
assign(f,'zagadka.in');
reset(f);
read(f,s,p);
assign(f,'zagadka.out');
rewrite(f);
k := false;
for x:=1 to 1000 do
  for y:=x to 1000 do
    if(x+y=s)and(x*y=p) then begin
       write(f,x,' ',y);
       k := true;
    end;

if not k then Write(f, 'NO');
close(f);
end.

[BDA]

Poma][a, впереди, т.к. подсмотрел решение и немного его "допилил" только.
По-моему, можно вполне надеяться, что в переменной i будет то, что нужно, а не мусор
(Кстати, что же Вы сообщение-то не редактируете, а пишите новое? )

[Poma][a]

Кстати, что же Вы сообщение-то не редактируете, а пишите новое?

Ой, как это я... Простите уж... Склероз...

[tata7393]

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

ну Вы почти всё правильно написали.
Единственное, не проверяете нашолся вариант или нет...
в случае, когда сумма равна 50 и произведение равно 30,
программа должна написать в файле 'zagadka.out' NO

я предлагаю такой вариант решения задачи:

program zagadka;
var x,y,s,p:integer;
    k : boolean;
    f:text;
begin
assign(f,'zagadka.in');
reset(f);
read(f,s,p);
assign(f,'zagadka.out');
rewrite(f);
k := false;
for x:=1 to 1000 do
  for y:=x to 1000 do
    if(x+y=s)and(x*y=p) then begin
       write(f,x,' ',y);
       k := true;
    end;

if not k then Write(f, 'NO');
close(f);
end.

отдельное спасибо)))

[tata7393]

всем спасибо!!))

[Somebody]

var
  s, p, x0, x1: LongInt;
  d: Double;
begin
  Assign(input, 'zagadka.in'); Reset(input);
  Assign(output, 'zagadka.out'); Rewrite(output);
  Read(s, p);
  d := sqr(s) - 4 * p;
  if d >= 0 then
  begin
    x0 := round(0.5 * (s - sqrt(d)));
    x1 := round(0.5 * (s + sqrt(d)));
    if (x0 + x1 = s) and (x0 * x1 = p) then
    begin
      WriteLn(x0, ' ', x1);
      exit;
    end;
  end;
  WriteLn('no');
end.