Begin WriteLn('введите первое число: '); ReadLn(a); WriteLn('введите второеое число: '); ReadLn(b); sum_d:=(a div 10) + (b div 10); sum_e:=(a mod 10) + (b mod 10); WriteLn('сумма десятков чисел: ', sum_d); WriteLn('сумма единиц чисел: ', sum_e); end.
Вторая программа.
Program d_and_e;
Var a,b,mult_d1_e2,mult_e1_d2:integer;
Begin WriteLn('введите первое число: '); ReadLn(a); WriteLn('введите второе число: '); ReadLn(b); mult_d1_e2:=(a div 10) * (b mod 10); mult_e1_d2:=(a mod 10) * (b div 10); WriteLn('произведение десятков 1-го и единиц 2-го числа: ', mult_d1_e2); WriteLn('произведение единиц 1-го и десятков 2-го числа: ', mult_e1_d2); end.
Третья программа.
Program d_and_e;
Var a,b,mult_d1_e2,sum_e1_d2:integer;
Begin WriteLn('введите первое число: '); ReadLn(a); WriteLn('введите второе число: '); ReadLn(b); mult_d1_e2:=(a div 10) * (b mod 10); sum_e1_d2:=(a mod 10) + (b div 10); WriteLn('произведение десятков 1-го и единиц 2-го числа: ', mult_d1_e2); WriteLn('сумма единиц 1-го и десятков 2-го числа: ', sum_e1_d2); end.
1. С=2*Pi*R, S= Pi*R^2, V=4/3*Pi*R^3, где Pi=3,14, заданный радиус R 2. P=a+b, S=1/2*a*b, где a и b - данные катеты 3. Пусть даны координаты трех вершин треугольника A(x1;y1), B(x2;y2), C(x3;y3). Расстояние между двумя точками вычисляется по формуле Тогда периметр треугольника можно вычислить по формуле: P=sqrt((x2-x1)^2+(y2-y1)^2)+sqrt((x3-x2)^2+(y3-y2)^2)+sqrt((x3-x1)^2+(y3-y1)^2). Площадь треугольника по формуле Герона вычисляется по формуле: , где -полу периметр треугольника. S=sqrt((sqrt((x2-x1)^2+(y2-y1)^2)+sqrt((x3-x2)^2+(y3-y2)^2)+sqrt((x3-x1)^2+(y3-y1)^2)/2*(sqrt((x2-x1)^2+(y2-y1)^2)+sqrt((x3-x2)^2+(y3-y2)^2)+sqrt((x3-x1)^2+(y3-y1)^2)/2-sqrt((x2-x1)^2+(y2-y1)^2))*(sqrt((x2-x1)^2+(y2-y1)^2)+sqrt((x3-x2)^2+(y3-y2)^2)+sqrt((x3-x1)^2+(y3-y1)^2)/2-+sqrt((x3-x2)^2+(y3-y2)^2))*(sqrt((x2-x1)^2+(y2-y1)^2)+sqrt((x3-x2)^2+(y3-y2)^2)+sqrt((x3-x1)^2+(y3-y1)^2)/2-sqrt((x3-x1)^2+(y3-y1)^2)) 4. Среднее геометрическое трех чисел вычисляется по формуле или (a*b*c)^1/3
кодирование цвета 2^10=1024 - 10бит