Паскаль 1. дано натуральное число n и n целых чисел, задаваемых пользователем. определить, сколько среди этих n чисел двузначных. массивы не использовать. 2. дано натуральное число n и n целых трехзначных чисел, задаваемых пользователем. определить, сколько среди этих n чисел таких, что произведение их цифр равно к. массивы не использовать

141

428

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

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

аминушечку

Информатика

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

// pascalabc.net 3.3, сборка 1540 от 16.09.2017 // внимание! если программа не работает, обновите версию! begin writeln(readseqinteger('вводите числа: ',readinteger('n=')) .where(x-> abs(x).between(10,) end. пример n= 5 вводите числа: 23 -4 100 -42 16 3 begin var k: =readinteger('k='); writeln(readseqinteger('вводите трехзначные числа: ',readinteger('n=')) .where(m-> abs((m mod 10)*(m div 100)*(m div 10 mod 10))=k).count) end. пример k= 8 n= 10 вводите трехзначные числа: 142 712 426 -222 318 916 107 932 -116 473 2

linaageeva96

Информатика

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

Var n,sum: integer; begin sum: =0; write('введите n: '); readln(n); for var i: = 1 to n do begin readln(n); if (abs(n)> 9) and (abs(n)< =99) then sum: =sum+1; end; writeln('количество двузначных чисел: ',sum); end. var n,k,sum: integer; begin sum: =0; write('введите n: '); readln(n); write('введите k: '); readln(k); for var i: = 1 to n do begin readln(n); if (abs(n)> 9) and (abs(n)< =99) then if div 100)*((n div 10) mod 10)*(n mod 10)) = k) then sum: =sum+1; end; writeln('количество чисел: ',sum); end.

4loVSer4

Информатика

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

правильный адрес - б) b1256

в диапазон входит 6 ячеек

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

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

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

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

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

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

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

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

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

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