Первый вариант: если десятичный логарифм от (2x+3).
Var X:real; Begin Write('x = ');ReadLn(x); if x<=-1.5 then WriteLn('Ошибка: Нельзя вычислить логарифм от нуля!') else if x = 0 then WriteLn('Ошибка: На ноль делить нельзя!') else WriteLn('f(',x,') = ',Ln(2*x+3)*4/(Tan(3*x)*Ln(10))) End.
Второй вариант: если логарифм по основанию (2x+3) от 4.
Var X:real; Begin Write('x = ');ReadLn(x); if x<=-1.5 then WriteLn('Ошибка: Основание логарифма должно быть больше нуля!') else if x = 0 then WriteLn('Ошибка: На ноль делить нельзя!') else WriteLn('f(',x,') = ',Ln(4)/(Tan(3*x)*Ln(2*x+3))) End.
Var A:array[1..10000] of integer; i,n:integer; S:real; Begin Write('n = ');ReadLn(n); Write('Введите a1..a',n,': '); S:=0; For i:= 1 to N do Begin Read(A[i]); if (A[i] mod 4 = 0) then S:=S+A[i]; End; WriteLn('S = ',S); End.
Заполнение случайными числами:
Var A:array[1..10000] of integer; i,n:integer; S:real; Begin Randomize; Write('n = '); ReadLn(n); Write('a1..a',n,': '); S:=0; For i:= 1 to N do Begin A[i]:=random(2*N+1)-N; Write(A[i],' '); if (A[i] mod 4 = 0) then S:=S+A[i]; End; WriteLn; WriteLn('S = ',S); End.
Var X:real;
Begin
Write('x = ');ReadLn(x);
if x<=-1.5 then WriteLn('Ошибка: Нельзя вычислить логарифм от нуля!')
else if x = 0 then WriteLn('Ошибка: На ноль делить нельзя!')
else WriteLn('f(',x,') = ',Ln(2*x+3)*4/(Tan(3*x)*Ln(10)))
End.
Второй вариант: если логарифм по основанию (2x+3) от 4.
Var X:real;
Begin
Write('x = ');ReadLn(x);
if x<=-1.5 then WriteLn('Ошибка: Основание логарифма должно быть больше нуля!')
else if x = 0 then WriteLn('Ошибка: На ноль делить нельзя!')
else WriteLn('f(',x,') = ',Ln(4)/(Tan(3*x)*Ln(2*x+3)))
End.