Из этих слов составьте слова,связанные с информатикой и компьютером: грамм, порог; бег, май, та.

программа,байт,теробайт,гигабайт,гиг,бит

програма,

Var       a, b, c, p: real;       a1, b1, c1: real;       a2, b2, c2: real; function sidelength(a1, a2, b1, b2: real): real; begin       sidelength : = sqrt(sqr(a1 - b1) + sqr(a2 - b2)); end; begin       writeln('1.найти сумму трех чисел');       readln(a, b, c);       writeln(a + b + c);             writeln('2.катеты прямоугольного треугольника известны.найти гипотенузу.');       readln(a, b);       writeln(sqrt(a * a + b * b));             writeln('3.найти среднеарифметическое двух чисел.');       readln(a, b);       writeln((a + b) / 2);             writeln('4.найти длину окружности,если известна площадь круга.');       readln(a);       writeln(sqrt(a / pi) * 2 * pi);             writeln('5.какой процент составляет число а от числа b.');       readln(a, b);       writeln(a / b * 100);             writeln('6.найдите площадь треугольника с формулы герона.');       readln(a, b, c);       p : = (a + b + c) / 2;       writeln(sqrt((p - a) * (p - b) * (p - c) * p));             writeln('7.найдите площадь кольца,если его толщина i см,диаметр внутри круга d см.');       readln(a, b);       c : = a + b;       writeln(pi * (c * c - b * b));             writeln('8.вычислите площадь треугольника заданного координатами вершин.');       readln(a1, a2, b1, b2, c1, c2);       - c1) * (b2 - c2) - (a2 - c2) * (b1 - c1)) / 2);             writeln('9.вычислить длинны сторон треугольника по заданным координатам его вершин.');       a : = sidelength(a1, a2, b1, b2);       b : = sidelength(c1, c2, b1, b2);       c : = sidelength(a1, a2, c1, c2);       writeln(a, ' ', b, ' ', c); end.