Зашифруй с шифра Цезаря с ключом 2 (на две буквы назад) слова: Интернет-... Файл-...

Question

Информатика: Зашифруй с шифра Цезаря с ключом 2 (на две буквы назад) слова: Интернет-... Файл-... ​

асель117 · Accepted Answer

Var
X1,Y1,X2,Y2,X3,Y3:real;
A,B,C:real;

Begin
Write('X1 = ');ReadLn(X1);
Write('Y1 = ');ReadLn(Y1);
Write('X2 = ');ReadLn(X2);
Write('Y2 = ');ReadLn(Y2);
Write('X3 = ');ReadLn(X3);
Write('Y3 = ');ReadLn(Y3);
A:=sqrt(sqr(X2-X1) + sqr(Y2-Y1) );
B:=sqrt(sqr(X2-X3) + sqr(Y2-Y3) );
C:=sqrt(sqr(X3-X1) + sqr(Y3-Y1) );
if (A<B+C)and(B<A+C)and(C<A+B) then
Begin
WriteLn('Длины сторон равны:');
WriteLn('A = ',A);
WriteLn('B = ',B);
WriteLn('C = ',C);
X1:=(A+B+C)/2;
WriteLn('Площадь треугольника равна ',sqrt(X1*(X1-A)*(X1-B)*(X1-C)))
End
else WriteLn('Треугольник не существует')
End.

Зашифруй с шифра Цезаря с ключом 2 (на две буквы назад) слова: Интернет-... Файл-...​

MOGZ ответил

Зашифруй с шифра Цезаря с ключом 2 (на две буквы назад) слова: Интернет-... Файл-...