Вот вам программа, сделал как понял её: если А - не четное число, выполняем (а*в), а если А - четное, выполняем 2 функции при которых если x>3 выполняем x^2+5, а если <=3, то x-8
сравнение тоже с помощью условных операторов сделал
Экспертаня система - компьютерная система, способная частично заменить специалиста-эксперта в разрешении проблемной ситуации.
сюда подходят
1) система управления траспортом
2) система моделирования зданий
Program p1;
Var a,b,c,s,i:integer;
Begin
Write('Введите первый член прогрессии: ');
Readln(a);
Write('Введите разность чисел прогрессии: ');
Readln(b);
Write('Введите количество чисел прогрессии: ');
Readln(c);
for i:=1 to c do
Begin
s:=s+a;
a:=a+b;
End;
Writeln('Сумма членов прогрессии: ',s);
<span>End.</span>
Задание 2.
y=sqrt(x^3+2)-(1/abs(x))
Задание 3.
j=3; k=2