Написать программу для решения (паскаль): 1)вычислите значения выражения 2)насти среднее арифметическое четырех чисел.

ответ:

var a, b, c: integer;   //инициализация переменных (длин отрезков)

begin   //начало программы (тело программы)

    write (' длины сторон: ');   //вывод сообщения в консоль

    readln (a,b,c);   //организация ввода (длин отрезков)

    if (a < = b+c) and (b < = a+c) and (c < = a+b) then   //в условии if проверяется, что каждая из сторон меньше либо равна сумме других. если хотя бы одна будет больше, то все логическое выражение вернет ложь (false). в таком случае сработает ветка else.

        writeln ('треугольник существует.')

    else

        writeln ('треугольник не существует.');

readln(); //инициализация закрытия по нажатию на кнопку

end. //конец программы

объяснение:

//попробуйте мой вариант:

program chislo;

var n, k, i, raz: integer;

begin

    write('сколько чисел нужно сгенерировать: ');

    readln(n);

    write('число которое нужно посчитать (k): ');

    readln(k);

    for i: =1 to n do

        if random(0,100) = k then

            raz: =raz+1;

    writeln( 'из ', n, ' cгенирировандных чисел число ', k, ' встретилось ', raz, ' раз(а)');

end.