Дано натуральное число верно ли что сумма его цифр меньше a? верно ли что произведение его цифр больше b. верно ли что это число x значное? составное условие и вложенный условный оператор не использовать.верно ли что его первая цифра превышает m? много . решите через паскаль. и ,по возможности было,видно,что решил ученик 9-10 класса.

//pascalabc.net v3.3 1633

var a,b,x,m: integer;

i: integer;

num, composition, sum: integer;

begin

  a: =5;

  b: =1;

  x: =12;

  m: =6;

  write('введите натуральное число: ');

  readln(num);

 

  composition: =1; // произведение цифр числа

  sum: =0; // сумма цифр числа

 

  // преобразуем число в строку и пробегаемся по ней, находя

  //   сумму и произведение цифр.

  for i: =1 to inttostr(num).length do

  begin

    composition *= strtoint(inttostr(num)[i]);

    sum += strtoint(inttostr(num)[i]);

  end;

 

  if sum < a then

    writeln('верно! сумма его цифр меньше a! ')

  else

    writeln('не верно! сумма его цифр не меньше a! ');

 

  if composition > b then

    writeln('верно! произведение его цифр больше b! ')

  else

    writeln('не верно! произведение его цифр не больше b! ');

 

  if inttostr(num).length = x then

    writeln('верно! это число '+x+'-значное! ')

  else

    writeln('не верно! это число не '+x+'-значное! ');

   

  if strtoint(inttostr(num)[1]) > 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.

Сначала комп начнет работать медленне, будут отмечаться ошибки загрузки или сохранения, затем будут утрачены файлы или данные, а потом система прикажет долго жить.