Решение задач С1

  • View
    30

  • Download
    0

Embed Size (px)

DESCRIPTION

1. 2006 - 2009. 2009 _1. 2008. 2009. Var x,y:real; Begin readln(x,y); If x*x+y*y>=4 then if x

Transcript

  • 1 2006 - 2009

  • 2009 _1

  • 2008

  • 2009

    Var x,y:real;Begin readln(x,y);If x*x+y*y>=4 then if x

  • 2007 , ax+b=0 x a b, . . . :1) a, b, x, .2) , .3) , , . ( , ).

  • var a, b, x: real;beginreadln(a,b,x);if b= 0 thenwrite('x= 0')elseif a=0 thenwrite(' ')elsewrite('x =',-b/a);end.

  • :1) a = 0 b = 0, x = 0( x , , x )2) : x : readln(a,b);3) : readln(a,b);if a = 0 thenif b = 0 thenwrite(' ')elsewrite(' ')elsewrite('x=',-b/a);( ). , .

  • 2009

    Var x,y:real;Begin readln(x,y);If y>=x*x then if x=0 then write() else write ( ) end.

    YX2