РЕШИТЬ ЗАДАЧУ НА ПАСКАЛЕ! Даны три целых числа a, b и c. Вывести TRUE, когда a находится на отрезке [b, c], и FALSE в противном случае.

begin

 var (a, b, c) := ReadInteger3;

 if (a >= b) and (a <= c) then

   write('TRUE')

 else

   write('FALSE');

end.

Объяснение:

begin  // Начало программы

 var (a, b, c) := ReadInteger3;  // Считываем a, b, c с клавиатуры

 if (a >= b) and (a <= c) then  // Если а принадлежит промежутку [b, c], тогда

   write('TRUE')  // Выводим TRUE

 else  // Иначе

   write('FALSE');  // Выводим FALSE

end. // Конец программы

с cd-r информацию нельзя удалить, можно только добавить. с cd-rw- можно удалить.

с каждым днем количество ряски увеличиваеется в 2 раза. 30 июня ряска покрыла всю поверхность озера, значит 29 июня ряской была покрыта половина озера.