если я правильно понял что <u>bx нужно возвести в степень 2-a</u> (и тоже самое с e) написано на паскале abc
program asd;
uses crt;
var
x,b,a,t,g,e:integer;
begin
writeln('Введите x');
readln(x);
writeln('Введите b');
readln(b);
writeln('Введите a');
readln(a);
writeln('Введите t');
readln(t);
writeln('Введите g');
readln(g);
writeln('Введите e');
readln(e);
writeln('Данные первого примера: a=', a, ' b=', b ,' x=',x ,' t=', t , ' g=', g);
writeln('Результат 1 примера: ', sqr(x)*x * sqr(t*g) * (sqr(x+b) +a/sqrt(x+b)));
writeln('Данные второго примера: a=', a, ' b=', b ,' x=',x ,' e=', e);
writeln('Результат 2 примера: ', ( Power(b*x,2-a) )/ (Power(e,a*x-1) ) );
end.
Никакие вроде иорвпквироиафрпфрфв
11*5=55
Мощность русского алфавита 5
Var n: integer;
<span> s: array[0..3] of string = ('зима','весна','лето','осень');
</span><span>begin
</span><span> write('месяц: '); readln(n);
</span><span> if n in [1..12] then
</span><span> begin
</span><span> n:=n mod 12;
</span><span> writeln(s[n div 3]);
</span><span> end
</span><span> else writeln('не верный ввод');
</span><span>end.
</span>месяц: 12
<span>зима
</span><span>месяц: 15
</span><span>не верный ввод
</span>