Отзывы о сообщении a a (сообщение в теме «Free Pascal, нужно определить принадлежит ли точка плоскаости»)

За данное сообщение: +1 Всего отзывов: 1 Положительные: +1 Отрицательные: 0
a a
Если Pascal, то

var m,n,x : real;
begin
write('m n?');
readln(m,n);
write('x?');
readln(x);
writeln((m<=x)and(x<=n));
readln;
end.

Если Delphi, то

program Project1;
{$APPTYPE CONSOLE}
uses SysUtils;
var m,n,x : real;
begin
write('m n?');
readln(m,n);
write('x?');
readln(x);
writeln((m<=x)and(x<=n));
readln;
end.

Отзывы участников:

trojan5
trojan5
Отзыв: +1 +1
Отзыв добавлен: 9 июня 2011, 21:22

Лучший ответ!