ЛблюЗнания

06.02.2020 02:38

Информатика

Есть ответ 👍

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

117

425

Посмотреть ответы 3

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

wranase

Информатика

4,8(76 оценок)

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

Mazhie

Информатика

4,6(78 оценок)

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.

aldera1

Информатика

4,8(8 оценок)

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

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.