Const a=1.2; b=2; h=0.1;
var x,y:real; n,i:integer;
begin
x:=a-h;
n:=round((b-a)/h)+1;
writeln(' № x y');
for i:=1 to n do
begin
x:=x+h;
y:=sqrt((x-1)/sin(1/x));
writeln(i:2,' ',x:3:1,' ',y:8:4);
end;
end.
Результат:
№ x y
1 1.2 0.5198
2 1.3 0.6567
3 1.4 0.7814
4 1.5 0.8992
5 1.6 1.0127
6 1.7 1.1232
7 1.8 1.2316
8 1.9 1.3385
9 2.0 1.4442
Pascal
var n: integer;
a: 0..9; b: boolean;
begin
write('Введите число N: ');
readln(n);
if n>0 then
begin
write('Введите цифру A: ');
readln(a);
if (a>=0) and (a<=9) then
begin
while (n>1) do
begin
if a=n mod 10 then begin b:=true; break; end else b:=false;
n:=n div 10;
end;
writeln(b);
end else writeln('Введите цифру A от 0 до 9');
end else writeln('Введите другое число, больше 0!');
end.
1)Вообще можно и с 1 раза достать, но 100% вероятность будет только после того, как вытащишь все черные, то есть на 4 раз
2) Аналогично первой. 6 шаров.
3)Новорожденные дети тоже родственники
4)Делим кучу на 3 равные части, 2 из них на весы. Если их вес равен, но фальшивая в той куче, что осталась, если нет - то в более тяжелой. Берем кучу с фальшивой и возвращяемся к 1 шагу. Найти получится за 3 взвешивания
1 мегабайт=1024килобайта=1024*1024=1048576байта
16*1048576=16777216 байт
16777216*8=134217728 бит, а вот в 8_ую не получается
Может, у меня где ошибка