textildlavas21

27.06.2022

Найти произведение чисел от 1 до тех пор пока произведение не станет больше 1000 ( на языке Паскаль )

Информатика

Ответить

Ответы

Низамов

27.06.2022

1.var i,n,s:integer;

2.begin

3.readln(n);

4.s:=1;

5.for i:=1 to n do

6.s:=s*i;

7.writeln(s);

8.end.

Объяснение:

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

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

Найти произведение чисел от 1 до тех пор пока произведение не станет больше 1000 ( на языке Паскаль )

▲

Найти произведение чисел от 1 до тех пор пока произведение не станет больше 1000 ( на языке Паскаль )

Ответы

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

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

Email*

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

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

Напишите программу в паскале произведение элементов массива, расположенных между максимальным и минимальным элементами;

Визначте, якого значення набуде змінна b після виконання умовного оператора if, якщо а = 7.

3D моделдеу ортасында белгиси кандай кызмет аткарады, сипаттаныз.

Рассмотрите блок схему и заполнитетрассировочную таблицу

Посчитать количество положительных чисел в массиве от -100 до 100 длина 10

разобраться, не понимаю как это делать от слова совсем. Файлы не все но думаю что суть понятна

Дана квадратная матрица. вывести на экран все четырехзначные числа, у которых сумма двух первых цифр равна сумме двух последних например 2754)

Для какого из указанных значений числа х истинно выражение (х< 10) или не (x< =30)?

Задайте три вопроса о питоне

При форматировании текста смысл содержания меняется или нет?

Напишите на паскале. : среди первых n чисел трибоначчи вывести на экран только кратные 3.

Чему равен средний рост детей в группе?Андрей — 1, 89 м;Вика - 1, 68 м;Юра - 1, 84 м;Паша - 1, 6м;Ваня — 1, 75 м.

Составить блок-схему алгоритма и программу, которая подсчитывает сумму 10 целых чисел, введенных с клавиатуры. данную программу делать в qbasic.

Найти произведение чисел от 1 до тех пор пока произведение не станет больше 1000​ ( на языке Паскаль )​

Ответы

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

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

Email*

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

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

Напишите программу в паскале произведение элементов массива, расположенных между максимальным и минимальным элементами;

Визначте, якого значення набуде змінна b після виконання умовного оператора if, якщо а = 7.

3D моделдеу ортасында белгиси кандай кызмет аткарады, сипаттаныз. ​

Рассмотрите блок схему и заполнитетрассировочную таблицу​

Посчитать количество положительных чисел в массиве от -100 до 100 длина 10

разобраться, не понимаю как это делать от слова совсем. Файлы не все но думаю что суть понятна

Дана квадратная матрица. вывести на экран все четырехзначные числа, у которых сумма двух первых цифр равна сумме двух последних например 2754)

Для какого из указанных значений числа х истинно выражение (х&lt; 10) или не (x&lt; =30)?

Задайте три вопроса о питоне​

При форматировании текста смысл содержания меняется или нет?

Напишите на паскале. : среди первых n чисел трибоначчи вывести на экран только кратные 3.

Чему равен средний рост детей в группе?Андрей — 1, 89 м;Вика - 1, 68 м;Юра - 1, 84 м;Паша - 1, 6м;Ваня — 1, 75 м.​

Составить блок-схему алгоритма и программу, которая подсчитывает сумму 10 целых чисел, введенных с клавиатуры. данную программу делать в qbasic.

Найти произведение чисел от 1 до тех пор пока произведение не станет больше 1000 ( на языке Паскаль )

3D моделдеу ортасында белгиси кандай кызмет аткарады, сипаттаныз.

Рассмотрите блок схему и заполнитетрассировочную таблицу

Для какого из указанных значений числа х истинно выражение (х< 10) или не (x< =30)?

Задайте три вопроса о питоне

Чему равен средний рост детей в группе?Андрей — 1, 89 м;Вика - 1, 68 м;Юра - 1, 84 м;Паша - 1, 6м;Ваня — 1, 75 м.