Belov

27.01.2023

Составить программу, которая вычисляет, какое минимальное количество чисел надо взять, чтобы результат 1×2×3×4×5×..×n был трёхзначным числом. Вывести результат на экран. Программу составить в паскале.

Информатика

Ответить

Ответы

perminovaea

27.01.2023

a = 1

i = 0

while a // 100 == 0:

i += 1

a *= i

print(i)

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

Поделитесь своими знаниями, ответьте на вопрос:

Составить программу, которая вычисляет, какое минимальное количество чисел надо взять, чтобы результат 1×2×3×4×5×..×n был трёхзначным числом. Вывести результат на экран. Программу составить в паскале.

▲

Ответы

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

Ваше имя (никнейм)*

Email*

Комментарий*

Популярные вопросы в разделе

решить №4, это моему уму непостижимо

Как вы поступите если вы столкнетесь с незнакомым копирование БУДЕТ 5 ЗВЕЗД

Запусти паскаль и введи программу:   vara, b, c: integer; begina: =−45; b: =abs(a); writeln('abs(−45)=', b); c: =sqr(b); writeln('sqr(b)=', c); c: =sqr(b+b); writeln('sqr(b+b)=', c); end.  п...

Составить программу решения в паскаль авс. дано вещественное число а и целое число n( больше0 используя один цикл, найти сумму 1+ а +аквадрат+акуб+ в энной степени

Переведите из одной величины в другую: 1. 1, 5 кбайт = байт 2. 1, 5 кбайт = бит 3. 1 мбайт = кбайт = байт

Программада көрсетілген кадамдарды ретімен орналастыр

Поиск наибольшего и наименьшего элементов массива. Составление программы на Паскалепоиска минимального и максимальногоэлементов

Приведите примеры неверного использования анимации когда зрители только отвлекаются и ухудшается передача информатиции

Ответы

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

Ваше имя (никнейм)*

Email*

Комментарий*

Популярные вопросы в разделе

решить №4, это моему уму непостижимо

Как вы поступите если вы столкнетесь с незнакомым копирование БУДЕТ 5 ЗВЕЗД​

Запусти паскаль и введи программу: &nbsp; vara, b, c: integer; begina: =−45; b: =abs(a); writeln('abs(−45)=', b); c: =sqr(b); writeln('sqr(b)=', c); c: =sqr(b+b); writeln('sqr(b+b)=', c); end.&nbsp; п...

Составить программу решения в паскаль авс. дано вещественное число а и целое число n( больше0 используя один цикл, найти сумму 1+ а +аквадрат+акуб+ в энной степени

Переведите из одной величины в другую: 1. 1, 5 кбайт = __байт 2. 1, 5 кбайт = __бит 3. 1 мбайт = __кбайт = __байт

Программада көрсетілген кадамдарды ретімен орналастыр​

Поиск наибольшего и наименьшего элементов массива. Составление программы на Паскалепоиска минимального и максимальногоэлементов​

Приведите примеры неверного использования анимации когда зрители только отвлекаются и ухудшается передача информатиции

Как вы поступите если вы столкнетесь с незнакомым копирование БУДЕТ 5 ЗВЕЗД

Запусти паскаль и введи программу: vara, b, c: integer; begina: =−45; b: =abs(a); writeln('abs(−45)=', b); c: =sqr(b); writeln('sqr(b)=', c); c: =sqr(b+b); writeln('sqr(b+b)=', c); end. п...

Переведите из одной величины в другую: 1. 1, 5 кбайт = байт 2. 1, 5 кбайт = бит 3. 1 мбайт = кбайт = байт

Программада көрсетілген кадамдарды ретімен орналастыр

Поиск наибольшего и наименьшего элементов массива. Составление программы на Паскалепоиска минимального и максимальногоэлементов