Question

Помогите пожалуйста, писать на языке Паскаль

Answer 1

program help;
Var k, l,x,y: integer;
Begin
readln(k,l);
readln (x,y);
if y>k*x+l then
write ('точка лежит над прямой')
else
if y<k*x+l then
write ('точка лежит под прямой')
else
write ('точка лежит на прямой');
End.

Answer 2

Работает, но могу покрасивее сделать

Answer 3

var
k, l, x, y: integer;

begin
readln(k, l);
readln(x, y);
if (y > (k * x + l)) then
write('Точка лежит над прямой')
else
if (y < (k * x + l)) then
write('Точка лежит под прямой')
else
write('Точка лежит на прямой');
end.

Answer 4

Блин, отступы не отобразились

Answer 5

почему так readln(k,l)? я думал так readln(k); readln(x)

Answer 6

Ну, ты же четыре числа должен вводить, а не два. readln(k, l);
readln(x, y); можно заменить на readln(k);
readln(l); readln(x); readln(y); и будет тоже самое