<span>Книга - подмножество: учебник (свойство - книга для детей школьного возраста),
</span>Книга - подмножество: справочник (свойство - краткое описание объектов),<span>
Жидкость - подмножество: бензин (свойство - горючее),
Жидкость - подмножество: молоко (свойство - белое, непрозрачное),
Человек - подмножество: врач (свойство - лечит),
Человек - подмножество: строитель (свойство - умеет строить)
</span>
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
var
a,b:integer;
begin
readln(a);
a:=a*9;
while a<>9 do
begin
b:=0;
while a<>0 do
begin
b:=b+a mod 10;
a:=a div 10;
end;
a:=b;
end;
end.
5 кб = 5 * 1024 = 5120 байтов
5120 байтов = 5120 * 8 = 40960 битов