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);
Ответ:
Третий вариант правильный
Объяснение:
If (xa * xa + ya * ya) < r * r then внутри
if (xa * xa + ya * ya) > r * r then во вне
if (xa * xa + ya * ya) = r * r then на
Да никакой не несёт потому что это не главное главное что 32 человека в классе на уроке физкультуры они построились в 8 шеренг и в каждой шеренге по 4 человека а остальное это уже не главное
.3ds - 3д модели
.dwg - чертежи AutoCAD
.rar - архивы
.exe - файлы исполнители
.zip - архивы
.mp3 - аудиофайлы
.flac - аудиофайлы
.wav - аудиофайлы
.mod - аудиофайлы
.pct - изображения
.mpg - видео
.mov - видео
.jpg - изображения
.txt - текст
.sub - субтитры для фильмов
.log - текс
.gif - движущееся изображение
.bmp - изображение