Program 1;
var x : integer;
begin
write('введите число');
readln(x);
if x<5 then write(xxp(10)) else write('число <5');
readln;
<span>end.</span>
Using System;
namespace ConsoleApplication2
{
class Program
{
static void Main(string[] args)
{
Console.Write("введите число: ");
int value = int.Parse(Console.ReadLine());
int sum = 0;
for(int i = 1; i < value; i++)
if (value % i == 0) sum += i;
if (value == sum) Console.WriteLine("Число совершенное");
else Console.WriteLine("Число не совершенное");
Console.ReadLine();
}
}
}
Прежде всего - формулы. Пусть а - длина стороны, тогда
![\displaystyle r= \frac{ \sqrt{3}}{6}a; \ R=2r; \ h=3r; \ S= \frac{1}{2}ah](https://tex.z-dn.net/?f=%5Cdisplaystyle+r%3D+%5Cfrac%7B+%5Csqrt%7B3%7D%7D%7B6%7Da%3B+%5C+R%3D2r%3B+%5C+h%3D3r%3B+%5C+S%3D+%5Cfrac%7B1%7D%7B2%7Dah+++)
var
a, r, rr, h, s: real;
begin
Write('Введите длину стороны треугольника: ');Readln(a);
r := sqrt(3) * a / 6;
rr := 2 * r;
h := 3 * r;
s := a * h / 2;
Writeln('Радиус вписанной окружности ', r);
Writeln('Радиус описанной окружности ', rr);
Writeln('Высота треугольника ', h);
Writeln('Площадь треугольника ', s);
end.
<em><u>Тестовое решение:</u></em>Введите длину стороны треугольника: 10
Радиус вписанной окружности 2.88675134594813
Радиус описанной окружности 5.77350269189626
Высота треугольника 8.66025403784439
Площадь треугольника 43.3012701892219
Было всего 5 остановок, в итоге кроме Буратины было 30 пассажиров, если считать Буратину, то тогда 31 пассажир.