Обозначим остаток от деления натурального числа a на натуральное число b как a mod b. Алгоритм вычисления значения функции F(n), где n – целое неотрицательное число, задан следующими соотношениями:
F(0)=0;
F(n)=F(n−1) + 1, если n>0 и при этом n mod 3 = 2;
F(n) = F((n–n mod 3)/3), если n>0 и при этом n mod 3 < 2.
Укажите наименьшее возможное n, для которого F(n)=6.
class Program
{
struct cr
{
public double x, y, l;
};
static void Main(string[] args)
{
cr[] pn = new cr[3];
double p = 0;
for (int i = 0; i < 3; i++)
{
Console.Write("Введите X{0}:", i + 1);
pn[i].x = Double.Parse(Console.ReadLine());
Console.Write("Введите Y{0}:", i + 1);
pn[i].y = Double.Parse(Console.ReadLine());
}
for (int i = 0; i < 3; i++)
{
if (i < 2)
pn[i].l = Math.Sqrt((pn[i].x - pn[i + 1].x) * (pn[i].x - pn[i + 1].x) +
(pn[i].y - pn[i + 1].y) * (pn[i].y - pn[i + 1].y));
else
pn[i].l = Math.Sqrt((pn[i].x - pn[0].x) * (pn[i].x - pn[0].x) +
(pn[i].y - pn[0].y) * (pn[i].y - pn[0].y));
p += pn[i].l;
}
Console.WriteLine("Периметр P={0}", p);
p /= 2;
Console.WriteLine("Площадь S={0}",
Math.Sqrt(p * (p - pn[0].l) * (p - pn[1].l) * (p - pn[2].l)));
Console.ReadKey();
}
}
Объяснение:
1
var
mas:array[1..100] of integer;
i,n:integer;
en,out:text;
res:real;
qw,qwe:string;
begin
n:=0;
i:=1;
write('Введите полный путь к импортируемому файлу: ');readln(qw);
write('Введите полный путь к экспортируемому файлу: ');readln(qwe);
assign(en,qw+'.txt'); assign(out,qwe+'.txt');
reset(en); rewrite(out);
while not Eof(en) do
begin
readln(en,mas[i]);
n:=n+mas[i];
inc(i);
end;
res:=(n/(i-1));
write(out,res);
close(out);
close(en);
end.
Там во вторую тупо добавляешь:
max:=-100001;
min:=100001;
if (mas[i]<0) and (mas[i] mod 2 = 0) and (mas[i]<min) then min:=mas[i];
if (mas[i]>0) and (mas[i] mod 2 = 1) and (mas[i]>max) then max:=mas[i];
if (max=-100001)or(min=100001) then writeln(out,'ERROR: please, rewrite yor file')
else
begin
writeln(out,min);
writeln(out,max);
Тоже такие же задачи решал)) лол). Ты не из 604??)))