Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
ratmir2rat
02.04.2021 17:31 •
Информатика
Создайте программу для алгоритмаs =1*2**100
Ответ:
esenjel
07.10.2020 12:14
Program algorithm;
Var i, S: integer;
Begin
S:=1;
For i:=1 to 100 do
Begin
S := S*i;
End;
Writeln(S);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
radich16
23.10.2020 17:43
БЫСТРЕЕЕЕЕЕ И ПРАВИЛЬНО сложить числа: 534 снизу 8 + 723 снизу 8, 101010 снизу 2 + 111011 снизу 2...
пок15
28.04.2023 18:33
А как фото из голереи тут вставить в вопрос? ...
mrYaroslav2020
29.07.2022 14:33
Определим K-факториалы следующим образом. равно Если N не делится на K, то K-факториал N = N ·(N −K)·(N −2K)·...·(N mod K), где N mod K — остаток от деления N на K. Если N делится...
dimabos888
27.11.2020 18:51
Выбери истинное высказывание....
mavimkolosov66
18.03.2022 18:35
Сколько различных восьмибуквенных слов можно составить в двоичном алфавите?...
daria19802
28.05.2021 14:55
Плагиатпен калай куресуге болады ...
жак77777
19.05.2022 16:36
1.какой вид спорта наиболее полно развивает качества выносливости? гимнастика или спортивная игры2.Чем хорактеризуется утомления? отказом от работы,повышенной ЧСС,Временым снижением...
Sevinch123
12.01.2023 15:50
Виконайте множення многочленів: (2 + а)(а - 1) Виполнете умножение многочленов...
Данилка20022002
24.03.2021 19:11
Синкан про бубу. Умоляяяююю...
nasty2004b
09.10.2020 09:10
Напишіть рівняння реакцій, за якими, маючи лише цинк, сірку, натрій, купрум(ІІ) сульфат і воду, можна одержати чотири сол...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Var i, S: integer;
Begin
S:=1;
For i:=1 to 100 do
Begin
S := S*i;
End;
Writeln(S);
End.