Напишите программу нахождения площади и высоты равностороннего треугольника, если известна его сторона на языке паскаль. заранее

Найдем площадь равностороннего треугольника по формуле:
, где 

Составим программу:
var a, h, s: real;
begin
  read(a);
  h := sqrt(3) / 2 * a;
  s := 1 / 2 * a * h;
  writeln('h = ', h : 0 : 1);
  writeln('S = ', s : 0 : 1);
end.

Условие пытается немного обмануть решающего. На самом деле всегда можно выбрать Рахманов ломтик строки, состоящий из одного символа (действительно, если в искомой подстроке несколько символов, то каждый из них встречается не меньшее число раз, что и сама подстрока). В итоге задача превращается в тривиальную: считать строку и вывести символ, встречающийся максимальное число раз.

#include <iostream>

int main() {

   char c, maxchar;

   int count[26] = {0}, maxcount = 0;

   while (std::cin.get(c)) {

       count[c - 'a']++;

   }

   for (c = 0; c < 26; c++) {

       if (count[c] > maxcount) {

           maxcount = count[c];

           maxchar = c;

       }

   }

   std::cout << static_cast<char>(maxchar + 'a');

   return 0;

}

F истинно тогда и только тогда, когда истинно или , или z. Три переменные (x,y,z) дают 2³=8 комбинаций в таблице истинности. При этом, истинность F получается в пяти случаях (четыре дает истинность z и одну - истинность ).
Получаем пять единичных комбинаций для таблицы истинности:
x  y z F
0 0 1 1
0 1 1 1
1 0 0 1
1 0 1 1
1 1 1 1
В исходной таблице истинности единицы в F в четырех случаях совпадают с единицами в первой колонке, следовательно она отражает состояние переменной z. Оставшаяся (пятая) единица в F должна соответствовать комбинации "100" для xyz и в исходной таблице она записана как "010". Тогда переменная х=1 должна стоять в этой таблице во второй колонке. Колонка для у - третья.
ответ: zxy