Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
555759
06.11.2021 23:28 •
Информатика
Все накопленный , решить , у меня есть два часа. сам не могу, если не напишу мне смэрт. составьте программу по заданному алгоритму.
Ответ:
ulaborodina57
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 оценок)
Популярные вопросы: Информатика
snojkox
12.07.2021 18:41
Дана блок-схема Если x=196;y=7....
Vauuu
19.10.2020 21:04
18 б. . чому буде дорівнювати значення змінної s? vari, s: integer; begin s : = 0; for i: = 2 to 1 do begin s : = s + i; end; end; ( с объяснениями )...
dabby25
28.04.2023 07:17
Уисполнителя калькулятор 2 команды, которым присвоены номера: 1. прибавь 1 2. прибавь 3 сколько есть программ, которые число 1 преобразуют в число 15?...
dariapark1
10.05.2022 17:55
10.Файл размером 512 Кбайт передаётся через некоторое соединение со скоростью 1024 бит в секунду. Определите размер файла (в Кбайт), который можно передать за...
ileanka1
02.11.2021 17:06
Установите взаимно однозначное соответствие между типом адреса и егореальным представлением.1) адрес электронной почтыА) www.school.ru2) URL-адресБ) http://kontr.lom.by/glavlosn.htm...
kattun
28.02.2022 19:53
3.Даны два целых числа A и B (A ≤ B). Вывести в порядке возрастания все чётные целые числа, расположенные между A и B (включая сами числа A и B).Язык Питон...
fhuffggergryth5h6
10.03.2021 14:44
1. составить программу, которая определяет, сколько в заданном предложении букв ф . если такой буквы нет, то на экран вывести слово нет 2. составить программу,...
МейнКун05
10.03.2021 14:44
Сколько килобайт будет занимать рисунок, если известны следующие характеристики: размер рисунка (в пикселях) 300*200, количество цветов 16384, сжатие 40 %....
NoNameRu1
28.05.2023 13:39
C++Написать функцию, которая вычисляет объем цилиндра. Параметрами функции должны быть радиус и высота цилиндра. ...
Ксюшка0328
17.05.2020 06:12
Определите значение переменной А A:=1; A:=0;A:=A+A; А) А=1 В) А=0 С) А=10...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
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;