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);
<em>// PascalABC.NET 3.3, сборка 1599 от 17.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadlnInteger;
var a0:=ReadlnInteger;
var d:=ReadArrInteger(n-1);
Print(a0);
for var i:=0 to d.Length-1 do begin
a0:=a0+d[i]; Print(a0)
end;
end.
<u>Пример</u>
5
1
1 2 -1 2
1 2 4 3 5
<span>4)C:\Документы\Интернет\Стратегии\Starcraft
</span>
Переведём байты в килобайты: 484582/1024=473,2246 кБ.
Объём дискеты тоже переведём в килобайты: 1,44*1024=1474,56.
Разделив объём дискеты на размер одного файла получим количество файлов: 1474,56/473,2246=3,12.
Ответ: 3 файла.
3. If not (A = B) Then
begin
A = A + B;
B = A + B;
end
else
begin
A = 0;
B = 0;
end;
