1)
Program n1;
var i: integer;
sum: real;
begin
sum:=0;
for i:=102 to 1000 do if (i mod 3=0) then sum:=sum+i;
writeln('Сумма: ',sum);
end.
2)
Program n2;
var i: integer;
begin
for i:=10 to 99 do if (i mod 2<>0)then writeln(i);
end.
15)program 15;
uses crt;
var a, b, c:integer;
otv:real;
begin
readln (a, b, c);
if (a> 0) and (b> 0) and (c> o ) then begin
writeln (sqrt (a), sqrt (b), sqrt (c));
end else if (a=0) or (b=0) or (c=0) THEN writeln ('0') else begin otv:=a*b*c; write (otv); END;
readln
end.
Можно, например, так (метод деления пополам):
const eps=10E-10;
function func(x:real):real;
begin
func:=ln(x)-1/x;
end;
var a,b,h,x,f1,f2: real;
begin
a:=0; h:=0.1;
a:=a+h;
f2:=func(a);
repeat
f1:=f2;
a:=a+h;
f2:=func(a);
until f1*f2<0;
b:=a; a:=a-h;
writeln('a = ',a,' b = ',b);
x:=(a+b)/2;
while abs(func(x))>eps do
begin
if func(a)*func(x)<0 then b:=x
else a:=x;
x:=(a+b)/2;
end;
writeln('x = ',x);
end.
Результат:
a = 1.7000000000000004E+000 b = 1.8000000000000005E+000
x = 1.7632228344678880E+000
A B C D 1) ¬A*¬B*(C+D) 2) (¬A+¬B)*(C+D)
1 0 1 0 0 1
-------------------------------------------------------------------------
A B C D 3) (¬A*¬B)+(C*D) 4) (¬A*¬B)*(¬C+D)
1 0 1 0 0 0
-------------------------------------------------------------------------
ответ 2)
1) M:=2*Tan(v*v*v)+Sqrt((2*Exp(a)*v+Sin(2*v*v))/Cos(v*v))
2) Y:=Ln(3*k)-Sin(x*x)*Cos(x*x)+Sqrt(Sin(2*x)+Cos(2*x))
3)
Var
P,x:real;
Begin
Write('x = ');ReadLn(x);
P:=Abs(x+5)/(Abs(3*x*x-x+20)+9);
WriteLn('P = ',P);
End.
4)
Var
c,x,Y:real;
Begin
Write('x = ');
ReadLn(x);
Write('c = ');
ReadLn(c);
Y:=c*x;
if Y <= 9 then Y:=c*x+2
else if Y < 20 then Y:=c*c+x
else Y:=c-x;
WriteLn('Y = ',Y);
End.