8*. Один з найдавніших шифрів роз- робив Полібій (ІІІ ст. до н.е.) -1 2 3 4грецький історик, полководець, державний діяч. Ушифрі, який 1 А. Б в г/дназвали «квадрат Полібія», кожналітера алфавіту (або пара літер, 2Ж зий / Kщо відповідають близьким за ви-3 Лмовою звукам) міститься в табли-M НPопці. Під час кодування повідомлен-4 С T уХ Цня кожна літера замінюється па-рою цифр - номерами стовпця та5 प III ШЮ Ярядка таблиці, на перетині якихвона розміщена. Для кодуванняповідомлень українською мовоюКвадрат Полібіяможе бути використана таблиця, зображена праворуч.Декодуйте повідомлення, закодовані за розглянутими вище прави-лами з використанням наведеної таблиці:а) 53 43 13 52 21 52 42; б) 62 43 51 34 31 11 33 33 65.о
Ответы
Program n1;
var x,y,n,z,h,C:real;
function arccos(x : real) : real;
begin
arccos := 2 * arctan(sqrt((1 - x) / (1 + x)));
end;
procedure ygls( a,b,c,t: real);
var al,be,ga: real;
begin
al := arccos((sqr(b) + sqr(c) - sqr(a))/(2 * b * c)) * 180 / pi;
writeln('угол A= ',trunc(al));
writeln('угол B= ',trunc(180-al-t));
end;
begin
write('введите сторону а: ');
readln(x);
write('введите сторону b: ');
readln(y);
write('введите угол С: ');
readln(C);
n:=C;
C:=cos(C*180/pi);
z:=sqrt(x*x+y*y-2*x*y*C);
h:=0.5*sqrt(2*(x*x+y*y)-c*c);
ygls(x,y,z,n);
writeln('сторона c: ',trunc(z));
writeln('высота h: ',trunc(h));
writeln('периметр P: ',trunc(x+y+z));
writeln('площадь S: ',trunc(z*h));
end.
var x,y,n,z,h,C:real;
function arccos(x : real) : real;
begin
arccos := 2 * arctan(sqrt((1 - x) / (1 + x)));
end;
procedure ygls( a,b,c,t: real);
var al,be,ga: real;
begin
al := arccos((sqr(b) + sqr(c) - sqr(a))/(2 * b * c)) * 180 / pi;
writeln('угол A= ',trunc(al));
writeln('угол B= ',trunc(180-al-t));
end;
begin
write('введите сторону а: ');
readln(x);
write('введите сторону b: ');
readln(y);
write('введите угол С: ');
readln(C);
n:=C;
C:=cos(C*180/pi);
z:=sqrt(x*x+y*y-2*x*y*C);
h:=0.5*sqrt(2*(x*x+y*y)-c*c);
ygls(x,y,z,n);
writeln('сторона c: ',trunc(z));
writeln('высота h: ',trunc(h));
writeln('периметр P: ',trunc(x+y+z));
writeln('площадь S: ',trunc(z*h));
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Какие значения будут принимать переменные А, В после выполнения действий? A:=2; B:=6; A:=2*B; B:=А+B+4;
Автор: Михайлович_гергиевич315
Продолжение 6С)Трассировка алгоритма D)Блок-схема алгоритмаЕ) Отладка алгоритма Информатика тестовые
Автор: Misyura_Viktoriya1683
Каковы значения логических функций И ИЛИ и НЕ
Автор: tarasowamash4
Здравствуйте решить пример из информатики 2 класс. Первая группа
Автор: impulsmc715
Решить матричное уравнение и сделать проверку. вместо n 12
Автор: mbudilina
I=K•i формуласымен нени табуга болады
Автор: stusha78938
Дано 15 чисел найти их сумму qbasic если можно
Автор: aivia29
using namespace std;
int main()
{
int n,max;
bool a=false;
cout<<"enter kol-vo numbers:"<<endl;
cin>>n;
if(n<=1000)
{
int arr[n];
cout<< "enter 1 chislo"<<endl;
cin>>arr[0];
max=arr[0];
if(arr[0] % 10==3 && arr[0]<30000)
{
a=true;
for (int i=1;i<n;i++)
{
cout<<"enter "<<(i+1)<<" chislo"<<endl,
cin>>arr[i];
if(arr[i]>30000) { break; }
}
for (int i = 0; i < n; ++i) {
if (arr[i] > max && arr[i] % 10==3)
{
max = arr[i];
}
}
}
}
if(a){ cout<<" max chislo okanch na 3: "<< max<<endl; }
return 0;
}