program cube; var a : real; begin writeln('Программа вычисляет объем куба и площадь '+ 'его боковой поверхности по длине ребра'); {I - ввод + ЗОД} repeat write('Введите длину ребра куба '); readln(a); if a<=0 then writeln('Ошибка! Длина ребра не может быть нулевой или отрицательной. '+ 'Повторите ввод.'); until a>0; {II, III - расчет и вывод} writeln('Длина ребра куба = ',a:8:3,' м'); writeln('Объем этого куба = ', (a*a*a):8:3,' м^3'); writeln('А площадь его боковой поверхности = ', (6*a*a):8:3,' м^2'); writeln('Нажмите [Enter] для завершения программы'); readln; end.
1. В году 12 месяцев, выбор 1 из 12.
2. В месяце максимум 31 день, минимум - 28 дней. Выбор от 1 из 31 до 1 из 28. Соответственно, количество информации будет в диапазоне:
3. В сутках 24 часа, выбор 1 из 24.
4.В неделе 7 дней, выбор 1 из 7.
5.
6. Если каждый раз делить интервал пополам и задавать вопрос "Находится ли число..", указывая любую из половинок, то число не превысит семи.
7. Как и в предыдущем случае, надо угадать одно число из 64-31+1=34
Надо задать три вопроса.