Если не ошибаюсь, то (-3;-8)
Нужно сложить все иксы вместе и все игрики(х; у), а т.к. нужно начальную точку узнать, то меняем знаки на противоположные.
Var
k, a, x: real;
begin
readln(a, x);
if (x > 0) then
k := a
else
if (x = 0) then
k := 2 * a
else
k := a / 2;
writeln('y = ', k * k * k + tan(sqr(ln(2 * k))));
end.
-------------------------
<em>///Вывод значения переменной А с тремя цифрами после запятой.</em>
<em>///Если okr = true, то округляет число, иначе отбрасывает лишние цифры.</em>
procedure WriteReal(a: real; okr: boolean);
begin
if (okr) then
writeln(round(a * 1000) / 1000)
else
writeln(trunc(a * 1000) / 1000);
end;
begin
writeln(sin(60));
writereal(sin(60), true);
writereal(sin(60), false);
end.
----------------------------
var
R, r_: real;
-----------------------------
Такого оператора в Pascal нет (в других языках, таких как Java, C# и пр. это оператор инкремента, ++, но в Pascal есть процедура procedure <u><em>inc</em></u>(var i: integer), делающая то же самое
inc(N);
600 МБайт = 600 * 1024 = 614400 Кбайт
Всего фотографий на диске: 614400 / 500 = 1228.8 но округляем в меньшую сторону, так как куска фото быть не может
1228 * 6 = 7368 секунд = 122,8 минут = 2 часа 2 минуты 48 секунд
Б http
В ://
Ж travels.
Е ru
Г /
Д home
А .jpg
http://travels.ru/home.jpg
