Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
11Катя11111
03.05.2023 16:22 •
Информатика
Все накопленный , решить , у меня есть два часа. сам не могу, если не напишу мне смэрт. составьте программу по заданному алгоритму.
Показать ответ
Ответ:
angelinamikhay
25.05.2020 20:48
var N, K, M: integer;
begin
readln(N);
K:=1;
M:=1;
while K<=N do
begin
M:=M*K;
K:=K+1;
end;
writeln(M);
end;
0,0
(0 оценок)
Популярные вопросы: Информатика
yulechkapopova4
01.01.2023 00:58
Папка находящаяся внутри другой папки называестся...
serotettonika
10.06.2020 13:48
Составить на паскале программу, которая по введённому номеру месяца выводит название времени года. при написании программы использовать логические операции. при неверном...
ArtemDem
23.12.2022 13:25
Сформируйте массив из 12 случайных чисел, которые принадлежат промежутку (-5; 5). выведите 4 первых элемента массива в строку, а 3 последних элемента в столбец...
sasha3756245
04.01.2021 10:59
Впаскале с repeat. составьте программу, которая выводит на экран сумму нечетных чисел от 36 до 66....
adonda994
04.01.2021 10:59
Напишите сочетания клавиш (например: alt+f4), при которых можно сделать следущее: переместить курсор на начало документа. люди добрые!...
icefice0
15.02.2023 15:11
Статья, набранная на компьютере, содержит 16 страниц, на каждой странице 40 строк, в каждой строке 40 символов. определите информационный объём статьи в одной из кодировок...
16912
19.04.2021 19:12
Определите правило преобразования информации: клавиатура-ж обновление-с сканер-?...
Kisa550
04.02.2020 08:44
Составить программупо информатике Паскаль...
juliagolub2015
04.02.2020 08:44
Информатика 6 сынып 1 бжб 4 тоқсан...
virki2018
24.07.2022 08:35
Выбери верный ответ find what: яблоко replace with :ветер...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var N, K, M: integer;
begin
readln(N);
K:=1;
M:=1;
while K<=N do
begin
M:=M*K;
K:=K+1;
end;
writeln(M);
end;