Const e=0.00001;
var x,x0,xk,h,a,s,y:real; n,i,k:integer;
begin
write('x0=');readln(x0);
write('xk=');readln(xk);
h:=0.1;
x:=x0-h;
n:=round((xk-x0)/h)+1;
writeln('№ x S(x) y(x)');
for i:=1 to n do
begin
x:=x+h;
a:=1; s:=a; k:=0;
while abs(a)>e do begin
a:=-a*2*x/(2*k+1)/(2*k+2);
s:=s+a;
inc(k);
end;
writeln(i:2,' ',x:3:1,' ',s:8:5,' ',cos(sqrt(2*x)):8:5);
end;
end.
Пример:
x0=0.5
xk=1.5
№ x S(x) y(x)
1 0.5 0.54030 0.54030
2 0.6 0.45765 0.45765
3 0.7 0.37795 0.37795
4 0.8 0.30114 0.30114
5 0.9 0.22716 0.22716
6 1.0 0.15594 0.15594
7 1.1 0.08744 0.08744
8 1.2 0.02160 0.02160
9 1.3 -0.04164 -0.04164
10 1.4 -0.10234 -0.10234
11 1.5 -0.16056 -0.16056
Нет ни одной информации, так как ни в одном предложении не говорится что друг живет именно в этом доме, именно на 5 этаже, и именно в 3 подъезде.
Есть много разных способов решения этой задачи. Например:
var n:integer; b:boolean; m:set of 0..9;
begin
write('n='); readln(n);
m:=[];
b:=false;
while (n>0) and not b do
if n mod 10 in m then b:=true else begin m:=m+[n mod 10]; n:=n div 10; end;
if b then writeln('Да') else writeln('Нет');
end.
Пример:
n=123432
<span>Да
Вот ещё вариант:
var n,m,n1,m1,b:integer;
begin
write('n='); readln(n);
b:=0;
while n>0 do
begin
m:=n mod 10;
n:=n div 10;
n1:=n;
while n1>0 do
begin
m1:=n1 mod 10;
if m=m1 then b:=1;
n1:=n1 div 10;
end;
end;
if b=1 then writeln('Да') else writeln('Нет');
end.</span>
<span>Пусть размер музыкального файла X, тогда скорость канала А ' x/30 '. Тот же файл в пункте Б, разрешение увеличили в два раза т.е будет x*2, а дискритизацию уменьшили в 1,5 раза, тогда (x*2)/1,5 это объем файла после всех процедур сжатия. Так как скорость в пункте Б больше в 4 раза, чем в А(X/30), тогда скорость в Б будет 4*(x/30) т.е (4x)/30. Ну и теперь стандартно объем после всех процедур (2x/1,5) поделим на скорость т.е (4x)/30, можно наглядно все записать, в результате получится 10.</span>
Var x, y, z: double;
begin
writeln('Input x');
readln(x);
writeln('Input y');
readln(y);
if (x + y >= 0) and (x + y <> 4) then {необходимо для корректности}
begin
z := (x * x + y * y) / (2 - sqrt(x + y));
writeln(z);
end
else
writeln('Incorrect input');
end.