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.
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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
