var
x: <em>real </em>:= 1;
begin
while (x <= 13) do
begin
writeln('y(', x, ') = ', ln(cos(x)));
x += 0.4;
end;
<span>end.</span>
Алгоритм решения логарифмических уравнений.
1)Смотришь,чтобы у логарифмов были одинаковые основания;
Если основания разные,то приводишь к одинаковому основанию
2)Пишешь ОДЗ
3)Выполняешь арифметические действия;
4)Получаешь ответ,если ответ не сходится с ОДЗ,то корней уравнения нет.Если корни подходят,то выписываешь,те корни которые подошли
Program q;
var a, b, max:integer;
begin
write('VVedite 2 chisla');
read(a,b);
max:=a;
if a<b then
max:=b
else
max:=a;
writeln(max);
end.
18 кб=18432 байт
Вам следует уточнить о какой кодировке идёт речь.
Если Unicode, UTF-16 или ISO 10646:
1 символ=2 байта
18432/2=9216 символа
Если ASCII, UTF-8 или CP1251:
1 символ=1 байт
18432 символа
Безумный вариант для фриков, которые считают что 1 кб=1000 байт
18 кб=18000 байт (аж самого воротит)
Для Unicode и так далее:
9000 символов.
Для ASCII и так далее:
18000 символов.
Если даже это не поможет, просто попробуйте скопировать ответ, а не перепечатывать его.
Это странно.
О второй задаче:
Занято:
Фильм=1,12 ГБ=1145,8(с округлением) мб
Фото=1105,9 мб(тоже с округлением)
Отчёт=15,5 мб
Всего занято=2267,2 мб
Объём=16384 мб
Процент занятого: <span>13.8
</span>Процент свободного: 86,2
Для начала разберёмся что к чему. В первом случае говориться что имя начинается с гласной,но перед этим стоит не,значит имя начинается с согласной.Дальшее идёт и(а это следующее условие) последняя буква должна быть не гласной,значит это имя - Михаил