Дано натуральное число верно ли что сумма его цифр меньше A? Верно ли что произведение его цифр больше B. Верно ли что это число
x значное?составное условие и вложенный условный оператор не использовать.верно ли что его первая цифра превышает m? Дам много баллов. Решите пожалуйста через паскаль. и пожалуйста,по возможности было,видно,что решил ученик 9-10 класса.
Var q: string; a,i,z,g,b,x,m: Integer; begin z:=0; g:=1; readln(q,a,b,x,m); for i:=1 to length(q) do begin z:=z+q[i]; end; if z<a then writeln('Верно, что сумма цифр меньше А') else writeln('Неверно, что сумма цифр меньше А'); for i:=1 to length(q) do begin g:=g*q[i]; end; if g>b then writeln('Верно, что произведение цифр больше B') else writeln('Неверно, что произведение цифр больше B'); if x=length(q) then writeln('Верно, что число x значеное') else writeln('Неверно, что число x значное'); if q[0]>m then writeln('Верно, что его первая цифра превышает m') else writeln('Неверно, что его первая цифра превышает m') end.
begin read(x); y := 2 * cos(x) - tan(x); x := 4 * x * 4 * 4 * x * x - 5 * x * x * 5; writeln('y = ', y, ' / ', x, ' = ', y / x); writeln('Вторая задача = ', abs(x * x * x - 5)); end.