Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Lilic1503ld
15.12.2021 12:59 •
Информатика
Составьте программу вычисляющую произведение квадратов всех чисел от 1 до n
Показать ответ
Ответ:
vfghjufr
19.08.2020 06:50
Var n,s,i:integer;
begin;
s:=1;
readln(n);
for i:=1 to n do
s:=s*sqr(i);
writeln(s);
end.
0,0
(0 оценок)
Ответ:
GeintQQ
19.08.2020 06:50
Var i,n,Result_math:integer;
begin
Write('Введите число n от 1 до 31: ');
repeat
Readln(n);
until not((n<1) or (n>31));
Result_math:=1;
for i:=1 to n do
Result_math:=Result_math*i;
Writeln('Произведение от 1 до ',n,' равно ',Result_math);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Kirill0812
03.02.2021 08:44
Доклад на тему Современные приложения и средства общения в сети Интернет...
максим1718
29.11.2020 01:58
За яким алгоритмом у середовищі Скретч створюють складні проекти?...
kaznacheev27p070e2
11.09.2022 22:13
3*7 div 2 mod 7/3 - trunc(sin(1))...
коля856
20.04.2020 06:37
Print( h = , h) Для h = int(75) на экране будет...
sasha1836
09.07.2020 02:19
Элементам массива присвоены следующие значения: M[3]: = 15; M[4]: = 13; M[5]: = 12; M[6]: = 4; M[7]: = 5. Затем выполняют следующие команды: С: = 0; for i : = 3 to 7 do if (i mod...
pollypron
28.05.2021 15:53
Решение первого и второго задания...
sofiagnip
24.05.2020 02:53
Команда print(7,13,22,200) выведет на экран: ХЕЛП...
викуля1101
13.07.2020 19:55
Задание: запишите чему равен результат вычисления. Оформите как показано в образце в тетради. Образец: 12 mod 5=2, так как 12:5=10 (остаток 2) 16 mod 15= 28 mod 8= 100 mod 30=...
faas1501
19.02.2023 11:58
Используя генератор, составьте список S, заполненный степенями числа X от 0 до N−1 и распечатайте его инструкцией print(S). Python...
шахноза31
08.06.2020 20:33
1. Чтобы изменить параметры страниц в текстовом редакторе Word следует выполнить какую команду? 2. Печать документа выполняется с какой команды? 3.Какую команду выполняем для...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin;
s:=1;
readln(n);
for i:=1 to n do
s:=s*sqr(i);
writeln(s);
end.
begin
Write('Введите число n от 1 до 31: ');
repeat
Readln(n);
until not((n<1) or (n>31));
Result_math:=1;
for i:=1 to n do
Result_math:=Result_math*i;
Writeln('Произведение от 1 до ',n,' равно ',Result_math);
end.