Для финансовых документов экономично - матричный, но таких мало выпускают, и сейчас они доргие, но в банках до сих пор их используют. Для печати всего остального оптимально - струйник цветной
Алгоритм 1) a x a = a² ⇒ b; b x a = a³ ⇒ результат 2) a x a = a² ⇒ b; b x b = a⁴ ⇒ c; c x c = a⁸ ⇒ c; c x b = a¹⁰ ⇒ результат
Программа на языке PascalABC.Net var a,b,c,y:real; begin Write('Введите число: '); Read(a); b:=a*a; y:=b*a; Writeln('Третья степень числа равна ',y); c:=b*b; c:=c*c; y:=b*c; Writeln('Десятая степень числа равна ',y) end.
Тестовые решения: Введите число: 2 Третья степень числа равна 8 Десятая степень числа равна 1024
Введите число: -13.594 Третья степень числа равна -2512.128188584 Десятая степень числа равна 215512594781.574
Используем формулу Герона для нахождения площади треугольника по трем сторонам: S=√(p·(p-a)·(p-b)·(p-c)), где p - полупериметр, равный p=(a+b+c)/2
Программа:
program z; var a1,b1,c1,a2,b2,c2,p1,p2,s1,s2:real; begin readln(a1,b1,c1); {ввод длин сторон первого треугольника} p1:=(a1+b1+c1)/2; {полупериметр первого треугольника} s1:=sqrt(p1*(p1-a1)*(p1-b1)*(p1-c1)); {площадь первого треугольника}
readln(a2,b2,c2); {ввод длин сторон второго треугольника} p2:=(a2+b2+c2)/2; {полупериметр второго треугольника} s2:=sqrt(p2*(p2-a2)*(p2-b2)*(p2-c2)); {площадь второго треугольника} if s1=s2 {если площади треугольников равны} then writeln('Yes') {то вывести положительный ответ} else writeln('No'); {иначе вывести отрицательный ответ} end.
