Принадлежат ли числа промежутку

[Irenna]

Даны три действительных числа.Выбрать те из них,каторые принадлежит отрезку [1;3].

[DexterUa]

Для того чтобы принадлежал достаточно чтобы обе точки были внутри отрезка.

Код: Выделить всё

uses Crt;
var
 a,b:real;
begin
 write('Enter a=');
 readln(a);
 write('Enter b=');
 readln(b);
 if (a>-1)and(a<1)and(b>-1)and(b<1) then
 begin
 write ('Prenadlezat');
 end
 else
 write ('Ne prenadlejat');
 ReadKey;
end.

[Хыиуду]

Много лишнего

Код: Выделить всё

var a, b: integer;
begin
  writeln('Vvedite a,b'); readln(a,b);
  if (a<1) and (a>-1) then write ('a prinadlejit, ') else write('a ne prinadlejit, ');
  if (b<1) and (b>-1) then write ('b prinadlejit.') else write('b ne prinadlejit.');
end.

В смысле, ввод можно сделать одним оператором, а begin и end не нужны, если между ними только один оператор

[BBB]

В смысле, ввод можно сделать одним оператором, а begin и end не нужны, если между ними только один оператор

Не нужны, но их наличие a) не ошибка b) даже лучше в плане культуры написания текста программы (для возможной дальнейшей модификации текста).

[Хыиуду]

В плане культуры написания текста блок операторов лучше сносить вправо табуляцией, как в Питоне (увы, форум это не позволяет)

[Irenna]

Зада4а_№1
Даны три действительных числа.Выбрать те из них,каторые принадлежит отрезку [1;3].
Зада4а_№2
Даны два действительных числа.Меньшее из них заменить полусумой этих чисел,а большее их произведением.
Зада4а_№3
Если данное число x меньше нуля,то z присвоить значение большего из из двух чисел x и y,в противном случае присвоить z значение полусумы этих чисел.