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