Дано натуральное число верно ли что сумма его цифр меньше 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.

256 кбайт = 2^8 * 2^13 = 2^21 бит

2 мбайт = 2 * 2^23 = 2^24 бит

2^21 : 2^18 = 2^3 = 8 сек, потребуется для получения толей первых 256 кбайт

2^24 : 2^15 = 2^9 = 512 сек, потребуется мише чтобы скачать 2 мбайта

8 + 512 = 520 сек потребуется мише для получения информации 

нет. компьютер может выполнять команды (программы) которые дает ему человек, сам по себе он работать не может, следовательно он не сможет заменить человека.