Var a,b,x:integer;
begin
writeln('введите число x:');
readln(x);
writeln('введите интервал от a до b:');
readln(a,b);
if (x>=a) and (x<=b) then writeln('x принадлежит данному интервалу') else
writeln('x не принадлежит данному интервалу');
readln;
end.
A)
var x,y:real;
y:=sqrt(x);
б)
var a,b,c:real;
c:=sqrt(a*a+b*b);
в)
var a,b,c,d,x1,x2:real;
d:=b*b-4*a*c;
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
г)
var s1,s2,s3,st:real; k1,k2,k3:integer;
st:=s1*k1+s2*k2+s3*k3;
Var i,k:integer;
s:real;
begin
k:=2;
for i:=1 to 25 do
begin
s:=s+sqrt(k);
k:=k+2
end;
WriteLn(s)
end.
Схема и программа вместе:
Program sum;
var M,b,c:integer;
begin
writeln('Введите число от 10 до 99: ');
readln(M);
c:=M;
if (M<10) or (M>99) then b:=0
else
while (M<100) do
begin
b:=b+M;
inc(M);
end;
writeln('Сумма всех двухзначных чисел начиная от ',c, ': ',b);
<span>end.</span>