Дано натуральное число верно ли что сумма его цифр меньше A? Верно ли что произведение...

Question

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

Answer 1

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 zwriteln('Неверно, что сумма цифр меньше А');
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.

Answer 2

//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.