program pryamaya; var y,x,k,x1,x2,x3,y1,y2,y3: integer; begin readln (x1); readln (y1); readln (x2); readln(y2); readln(x3); readln(y3); writeln (x1," ",y1,"+",x2," ",y2,"+",x3," ",y3); y:=k
x+b; write ("Vvedite koeficient "k""); readln(k); write ("Vvedite znachenie "b""); readln (b); if y1=kx1+b then writeln ("tochka #1 nahoditsa na pryamoi"); if y2=k
x2+b then writeln ("tochka #2 nahoditsa na pryamoi"); if y3=kx3+b then writeln ("tochka #3 nahoditsa na pryamoi"); end.
Ссылка на пост
23 окт 2008 в 15:11