1. Pascal / Говнокод #8281

    +146

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    program chet;
uses crt;
var a,
    b,
    x,
    y:Integer;
begin
  clrscr;
  Write('Vvedite X=');
  ReadLn(x);
  Write('Vvedite Y=');
  ReadLn(y);
  for a:=0 to 30000 do
    for b:=0 to 30000 do
    begin
      if (a+b=x)and(a*b=y) then
      begin
        Write('a=',a);
        WriteLn('b=',b);
      end;
    end;
  ReadLn;
end.

    находи все возможные пары A и B!

    Запостил: ITdocer, 23 Октября 2011

    Комментарии (3) RSS

    Добавить комментарий