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);
Var
x,y : integer;
begin
Writeln('Введите координаты x: ');
Read(x);
Writeln('Введите координаты y: ');
Read(y);
if (x>2) or (x<-2) then
Writeln('Принадлежит') else Writeln('Не принадлежит');
<span>end.</span>
Массив содержит значения температуры, измеренной в 10 точках радиатора охлаждения(°C): 45, 34, 39, 67, 62, 41, 52, 57, 51, 36. О
GlushkovAD
Uses crt;
const
a:array[1..10] of integer=(45, 34, 39, 67, 62, 41, 52, 57, 51, 36);
var sr:real;
i,n,sum:integer;
begin
for i:=1 to 10 do write(a[i]:3);
writeln;
for i:=1 to 10 do
if a[i]>50 then
begin
sum:=sum+a[i];
n:=n+1;
end;
sr:=sum/n;
writeln('Среднее значение горячих участков: ',sr);
end.<span>
</span>
Ответ:
Граф под номером 2
Объяснение:
Из пункта В есть 4 пути.
Рассмотрим графы по очереди:
1) на первом графе из пункта В 4 пути, он может нам подойти;
2) на втором графе из пункта В 4 пути, он может нам подойти;
3) на третьем графе из пункта В 3 пути, он не может нам подойти;
4) на четвертом графе из пункта В 3 пути, он не может нам подойти.
В дальнейшем будем рассматривать только 1 и 2 графы, так как 3 и 4 нам уже не подходят.
Из пункта Е есть 3 пути.
Рассмотрим графы по очереди:
1) на первом графе из пункта Е 2 пути, он не может нам подойти;
2) на втором графе из пункта Е 3 пути, он может нам подойти.
В дальнейшем будем рассматривать только 2 граф, так как 1, 3 и 4 нам уже не подходят.
Проверим соответствуют ли расстояния между пунктами указанным в таблице. Расстояния соответствуют.