Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
сашп17
10.10.2020 23:18 •
Информатика
Напишите программу вычисления произведения. расписать в turbo pascal. (x-1)(x-2)(x--n)
Ответ:
кек945
09.10.2020 05:43
var x,n:integer;
begin
readln(n);
readln(x);
for i=:1 to n do
x:= (x-i);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
алишер126
09.02.2022 20:38
Слова связынные с компьютером 4 буква т...
лим0н
09.02.2022 20:38
Написать программу в паскале, используя repeat until . : дана непустая последовательность, оканчивающаяся нулем. найти в ней минимальную цифру....
Азяка21
09.02.2022 20:38
Вклассе 111100(двоичная система)%девочек и 1100(двоичная) мальчиков. сколько учеников в классе?...
botanchik1
27.02.2020 04:18
Закодировать текст в коде кои-! текст: суан-пан , ibm ! десятичный код? двоичный код?...
Nastyushon
29.12.2022 15:24
Поставить буквы обратно алфавиту а цифры в порядке убывания 6к9ар71цес5уми...
Jama133
29.12.2022 15:24
Кодирование текста осуществляется перестановкой букв в каждом слове по одному и тому же правилу. восстановите кодированую информацию и сформулируйте правила перестановки....
Lana111111111111
29.12.2022 15:24
Информатика 4 класс часть 2 стр 42 рудченко...
anatoliy92itf
27.02.2022 07:42
Чему в десятичной системе счисления равно число 1110012?...
Vlad584q
19.01.2020 16:24
Масса соли которую необходимо растворить в 50 мл воды для приготовление 20% раствора...
alena0707listru
19.01.2020 16:24
Найди слова с чередованием согласных в корне.обозначь корень подчеркни чередование : правое ухо - шапка-ушанка, ловить рыбу- ловлю мячик, перчатки из пуха - пушистый...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var x,n:integer;
begin
readln(n);
readln(x);
for i=:1 to n do
x:= (x-i);
end.