Первый вариант: если десятичный логарифм от (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.
(Русские буквы - а,б,в,г и т.д.;
Латинские - a,b,c,d etc.;
Арабские цифры - 1,2,3,4 и т.д.;
Римские - I II III IV V VI и т.д.)