Написать программу на паскале, которая считает произведение чисел, которые больше введенного числа, до 100. числа только положительные.

142

289

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

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

ussr2017

Информатика

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

Решение с использование длинной арифметики. var i, j, n, len, rem: integer; a: array[1..200] of byte; begin write('введите число: '); read(n); len : = 1; a[1] : = 1; for i : = n + 1 to 99 {100} do begin for j : = 1 to len do begin rem : = a[j] * i + rem; a[j] : = rem mod 10; rem : = rem div 10; end; while rem > 0 do begin inc(len); a[len] : = rem mod 10; rem : = rem div 10; end; end; writeln('произведение чисел из интервала (', n, '; 100): '); for i : = len downto 1 do write(a[i]); end. пример работы программы: введите число: 1 произведение чисел из интервала (1; 100): 1948348720420644788695888257080283249381963823594360049498643927185579338215778728274424636079639781709574621897447185108592230400000000000000000000

1NatikNatik1

Информатика

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

Var s: real; a,x: integer; begin writeln('введите целое число'); readln(a); s : = 1; a : = a + 1; for x : = a to 100 {или 99, зависит от того, включается 100 или нет} do begin s : = s * a; a : = a + 1; end; writeln(s); end.

lezginocka11

Информатика

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

Label metka; var x, l, m: integer; begin for var i: =100 to 300 do begin x: =i ; l : = x-10; m : = x+30; while l < > m do if l > m then l : = l - m else m : = m - l; if (m=40) then begin println(x); goto metka; end; end; metka: end.

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

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

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

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

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

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

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

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

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

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