Размещено 6 лет назад по предмету Информатика от frigate19

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

Ответ на вопрос

Ответ на вопрос дан estengseant

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.
1. Ответ на вопрос
  
  Ответ на вопрос дан frigate19
  
  спасибо
Ответ на вопрос

Ответ на вопрос дан Вованичикчка

//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.
1. Ответ на вопрос
  
  Ответ на вопрос дан frigate19
  
  спасибо