Составить программу вычисления площади круга по заданному радиусу. печатать целую часть результата; дробную часть; остаток от деления на 3(не забудьте, что mod работает с целым типом); округлите результат.
Свойства многострочного текстового поля. Для ввода и вывода значений элементов одномерного массива можно воспользоваться многострочным полем (компонент типа ТМеmо), который можно разместить на форме так же, как и другие компоненты. Среди свойств этого компонента есть много таких, которые имели ранее рассмотренные нами компоненты: Name, Color, Font, Enabled, Visible, Height, Width, Top, Left и in. Среди свойств, которых не было предыдущие компоненты, рассмотрим следующие: ScrollBars (англ. Scroll - прокрутка, bars - прямоугольные полосы) - значение этого свойства определяет наличие или отсутствие на этом компоненте полос прокрутки (горизонтальной - ssHorizontal, вертикальной - ssVertical обоих - ssBoth) для просмотра текста, который выходит за пределы компонента; ReadOnly (англ. Read - читать, only - только) - значение этого свойства определяет возможность редактирования строк компонента: False - можно редактировать, True - нельзя (только для чтения) Lines (англ. Lines - линии, строки) - значением этого свойства является набор значений, расположенных в строках этого компонента; каждая строка имеет номер, нумерация строк начинается с 0; Lines.Count (англ. Count - подсчет) - значение этого свойства равно количеству заполненных данными строк компонента; отметим, что это свойство отсутствует в списке свойств окна Object Inspector. Тогда при сохранении проекта эти значения также будут сохранены и автоматически появятся в этом поле после запуска проекта на выполнение.
Номер квартиры больше 4? (девочка отвечает -нет) номер больше 2 ? (нет) это 1? (нет) ( да ) ответ 2 то ответ 1 смысл вопросов в том что бы узнать значение номера это узнается путем деления максимального числа на половину (в какой части лежит число в большей или меньшей) 8 делам половину в большей части (числа 5,6,7,8) в меньшей (числа 1,2,3,4) дальше идет ответ девочки большей или меньшей части . допусти она ответила в меньшей тогда делим меньшую часть на два . Получается новый вопрос: число больше 2? тут так же делим на большую и меньшую (3,4) ---(1,2) и так далее
var S,R:real;
begin
writeln('Введите значение R: ');
readln(R);
S:=Pi*sqr(R);
writeln('целая часть S = ',int(S));
writeln('дробная часть S = ',frac(S));
writeln('округление S = ',round(S));
end.