Var
a, b, d, y, x, x0: real;
begin
writeln('Пожалуйста, введите границы отрезка: ');
readln(a, b);
writeln('Пожалуйста, введите шаг: ');
readln(d);
y := sqr(x) + 1 / (x - 4);
x0 := a;
while (x0 <= b) do
begin
if ((x0 - 4) = 0) then writeln('Возникло деление на ноль!') else
writeln('Значение функции f(x) в точке x0 = ', x0, ' = ', sqr(x0) + 1 / (x0 - 4));
x0 := x0 + d;
end;
readln;
end.
Взвесить с одной стороны 2 и с другой, с какой стороны легче взвешивать Ещё раз с одной стороны 1 и с другой какая сторона легче та монета фальшивая
Мощность алфавита 2 в 4 степени=16
<span>Решение:
</span>program zadacha_1;
const MaxM = 10;
h = 0.2;
type myArray = Array[1..MaxM] of real;
var A:myArray; //Результаты будем записывать сюда
x, y:real;
i: integer;
begin
x := 2;
while ((x >= 2.0) and (x <= 4.0)) do begin
for i:=1 to MaxM do begin
y := 3*cos(x/2)+4;
A[i] := y;
x := x + h;
end;
end;
for i:=1 to MaxM do //Вывод массива
write(A[i]:20);
<span>end.</span>