Uses GraphAbc; begin SetWindowSize(300,200); SetPenWidth(4); SetPenColor(clRed); Line(120,40,160,120); SetPenColor(clBlue ); Line(160,120,60,160); SetPenColor(clGreen); Line(60,160,120,40); end.
Ответ:
вот на фото представлен пример, а там уже делайте свою по своей заданной теме
Var f: real; x :integer;
begin //Ввод writeln ('введите x'); readln (x);
//решение
f:= x-(Power(x,3)/6)+(Power(x,5)/120)-(Power(x,7)/5040)+(Power(x,9)/362880)-(Power(x,11)/39916800)+(Power(x,13)/6227020800); {f:=Power(x,2);} //вывод writeln ('f = ', f); end.
1) п2 - Е (конечный), п3 - Г, п4 - К, п6 - В (начальный), п7 - Д. Точки А и Б нам не интересны. От В есть пути до Д, К и Г. От В до Д - 20, от Д до Е - 15, итого 35. От В до К - 25, от К до Е 5, итого 30. От В до Г - 10, от Г до К - 10, от К до Е - 5, итого 25. Ответ: путь В - Г - К - Е, 25.
2) Нужно определить родителей и детей по их номерам в столбце ID, затем узнать их разницу в возрасте и сверить с условием. Под условие попадает только человек с ID 2045. Ответ 1.
3) Нужно сложить количество стрелок, ведущих через пункт Ж к пункту Л не через пункт З. Их количество 15. Ответ 15.
Ответ:0.1011*10*(-100)=101,1
Объяснение:
1)0,1011*10=1,011
2)1,011*(-100)=101,1
* это умножение
