Азии, в масле этого растения лекари хранили нити для зашивания ран, обрабатывали маслом свежие порезы и гноящиеся раны Само растение, в качестве лекарственного средства, использовали древние греки, римляне, египтяне тибетские монахи и североамериканские индейцы. Еще в I веке Вергилий писал, что во время эпидемий холеры жилища и одежду больных следует окуривать дымом из хвои и веток этого растения. У североамериканских индейцев применялся оригинальный изпечения больных туберкулезом легких этих больных надолго поселяли в зарослях этого растения и не позволяли выходить оттуда до полного выздоровления. Издавна, этим кустарником закрывали посуду для хранения молока и бочки для солений, чтобы уберечь от порчи. Во Франции спиные окорока коптили только в дыму от веток этого растения Задание. Чтобы узнать о каком растении идет речь вам надо перевести числа в указанные единицы измерения. По числам определите каким буквам они соответствуют в алфавите, Расставьте буквы в определенном порядке и напишите, название какого растения у вас получилось. Примечание. 15/512 - это обыкновенная дробь образец, 15/512 Мбайт = 15/512 + 1024 Кбайт-30 1) 15/512 Мбайт = ? Кбайт 2) 16384 байта = ? Кбайт 3) 112 бит = ? байт 4) 3/ 4096 Кбайта =? бит (5) 10240 Мбайт = ? Гбайт 6) 12288 байта = ? Кбайт 7) 13/8 байта=2 бит 8) 3/ 1024 Гбайта=? Мбайт 9) 15360 байт=? Кбайт 3/512 Кбайт = ? байт 10) 11) 8192 Кбайта = ? Мбайт 12) 1/131072 Мбайт=? байт Кбайт в алфавите 30- это буква
A(x1,y1)
B(x2,y2)
C(x3,y3)
program q;
var x1,x2,y1,y2,x3,y3:integer;
ab,ac,alp,bet,alfa,s:real;
begin
write('введите координаты точки A: ');
read(x1);
readln(y1);
write('введите координаты точки B: ');
read(x2);
readln(y2);
write('введите координаты точки C: ');
read(x3);
readln(y3);
ab:=sqrt(sqr(x2-x1)+sqr(y2-y1));
ac:=sqrt(sqr(x3-x1)+sqr(y3-y1));
alp:=arctan((y2-y1)/(x2-x1));
bet:=arctan((y3-y1)/(x3-x1));
alfa:=bet*2-alp;
s:=sin(alfa)*(ab*ac)/2;
writeln('площадь треугольника=',s);
readln
end.
program vt;
type toy = record // тип игрушка
name : string; // название
price : integer; // стоимость
age : integer; // возрастные границы
a: boolean;
end;
var
f : text; // переменая для работы с файлом
i : integer; // счетчик
size : integer; // кол. игрушек
maxage : integer; // макс. возрастная граница
maxprice : integer; // макс цена игрушки
mas : array [1..100] of toy; // контейнер игрушек
begin
assign(f, 'input.txt'); // связываем переменную с файлом
reset(f); // открываем файл на чтение
i : = 1; // 1 игрушка
maxprice : = 400; // макс цена = 400
maxage: =5; //макс. возрастная граница = 5
while (not eof(f)) do // пока не дошли до конца файла
begin
readln(f, mas[i].name); // считываем данные об игрушке
readln(f, mas[i].price);
readln(f, mas[i].age);
maxage > mas[i].age; //найти все до 5 лет
writeln
end;
end.