Вот простейший вариант, где вводятся соответственно стороны 1-го и 2-го треугольников. program triangles; var a1,b1,c1,a2,b2,c2: integer; begin writeln('введите стороны первого треугольника.'); read(a1,b1,c1); writeln('введите стороны второго треугольника, соответственно сторонам первого.'); read(a2,b2,c2); if ((a1=a2) and (b1=b2) and (c1=c2)) then writeln('да, треугольники равны.') else writeln('нет, треугольники не равны.'); end.
Ответ дал: Гость
x - информационный вес одного символа
n - мощность алфавита (кол-во символов)
размер содержащейся в тексте информации находим по формуле:
k - кол-во символов в тексте
амазонка
- один символ несет 8 битов (1 байт)
- байт в письме амазонки
омега:
один символ несет 7 битов
байт в письме омеги
Ответ дал: Гость
var a: integer; beginreadln(a); write (a div 10); end.
Популярные вопросы