Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
DavidWorld
03.03.2021 23:28 •
Информатика
Найти произведение чисел от n до 1 паскаль abc
Показать ответ
Ответ:
ViktoriyaFomina1
06.10.2020 05:15
Var N, a:int64;
begin
write('Введите N: ');
readln(N);
a := 1;
for var i := N to 1 do
a := a * N;
writeln('Произведение чисел от 1 до ', N, ' = ', a);
end.
0,0
(0 оценок)
Ответ:
Leyla1313
06.10.2020 05:15
Var
N:integer;
P:real;
Begin
P:=1;
Write('N = ');
ReadLn(N);
For N:= N downto 2 do
P:=P*N;
Write('P = ',P);
End.
Пример работы программы:
N = 13
P = 6227020800
0,0
(0 оценок)
Популярные вопросы: Информатика
TEMOXAA
14.01.2021 10:43
(программирование) тело имеет массу м г и объем v см3. будет ли оно плавать в жидкости, объем которой равен v1 см3, а масса м1 г? (указание: найдите плотности тема...
tarringate
30.05.2022 11:51
На рисунке слева изображена схема докоr Н-ского района, в таблице звездочкой обозначено наличие дороги из одного населенного пункта в другой. Отсутствие звездочки...
MDL123
29.10.2022 23:14
Игорь составляет таблицу кодовых слов для передачи сообщений, каждому сообщению соответствует свим кодовое слово. В качестве кадовых слов Игорь спользует пятибуквенные...
aaablaeva
17.12.2021 16:42
Одушевлённые предметы, которые издают звуки Неодушевлённые предметы, которые издают звуки...
гарристайлсс
25.05.2020 10:25
Скласти блок схему для визначення сторін трикутника...
Seitowad
12.04.2021 14:46
Сумма первых трех членов возрастающей прогрессии равна 13, а их произведение равно 27. найти сумму первых пяти членов этой прогрессии....
4богдашка
12.04.2021 14:46
Катеты прямоугольного треугольника 3 и 6 см. определить радиус окружности, которая касается катетов и центр которой лежит на гипотенузе...
AmitJK
12.04.2021 14:46
1. по проводнику, согнутому в виде квадрата со стороной 10 см, течет ток силой 20а. плоскость квадрата составляет угол 300 с линиями однородного магнитного поля,...
Vika17112003
12.04.2021 14:46
Перевод на казахский! нижеподписавшиеся, составление договора, заключили настоящий договор о нижеследующем, указанная автомашина принадлежит мне,на основании технического...
РомаУзденов
12.04.2021 14:46
Найдите расщепленные сказуемые замените их синомическими глаголами. определите, изменился ли при этом смысл и стилистическая окраска высказывания. 1. вчера я нес...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
write('Введите N: ');
readln(N);
a := 1;
for var i := N to 1 do
a := a * N;
writeln('Произведение чисел от 1 до ', N, ' = ', a);
end.
N:integer;
P:real;
Begin
P:=1;
Write('N = ');
ReadLn(N);
For N:= N downto 2 do
P:=P*N;
Write('P = ',P);
End.
Пример работы программы:
N = 13
P = 6227020800