Решить уравнения и расположить буквы в порядке возрастания (все буквы набирать в русской раскладке, без пробелов и запятых). То есть, если получилось с=22, к=11 и 6=33, то в ответе следует написать ксб. 50-y=(5*6)+y 33 =(88/(2*4))*(x-77) (44-14)/(0-1)=5

#include <iostream>

void main()

{

int x;

std::cin>>x;

int sum = 0;

int prod = 1;

while(x>0)

{

 int y = x%10;

 sum = sum + y;

 prod = prod * y;

 x=x/10;

}

if(sum%10 == 0 && prod < 100)

 std::cou<<"Yes"<<endl;

else:

 std::cout<<"No"<<endl;

}

Pascal

var n,digit,sum,prod:integer;

begin

 readln(n);

sum = 0;

prod = 1;

 while (n>0) do

 begin

  digit:=n mod 10;

  sum = sum+digit;

  prod = prod * digit;

  n:=n div 10;

 end;

if(sum mod 10=0)and(prod<100)

begin

writeln("да");

end

else

begin

writeln("Нет"):

end;

Как то так

end.

1) var y,x:real;

begin

writeln('Введите значение x: ');

readln(x);

y:=x-(sqr(x)*x/3)+(sqr(x)*sqr(x)*x)/5;

writeln('y = ',y);

end.

2) var y,x,z:real;

begin

writeln('Введите значение x: ');

readln(x);

writeln('Введите значение y: ');

readln(y);

z:=exp(-x*ln(2))-cos(x)+sin(2*x*y);

writeln('z = ',z);

end.

3) var y,x:real;

begin

writeln('Введите значение x: ');

readln(x);

y:=(sqr(x)-7*x+10)/(sqr(x)-8*x+12);

writeln('y = ',y);

end.

4) var y,x:real;

begin

writeln('Введите значение x: ');

readln(x);

y:=x-10*sin(x)+abs(sqr(x)*sqr(x)-sqr(x)*sqr(x)*x);

writeln('y = ',y);

end.