Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Ulia1090210
11.10.2021 14:34 •
Информатика
С1 1)при заданном n вычислить n факториал
Ответ:
SOSISKA2281
02.10.2020 19:03
Var
N,N1:integer;
Begin
N1:=1;
Write('N = ');ReadLn(N);
For N:= 2 to N do
N1:=N1*N;
WriteLn(N,'! = ',N1)
End.
Во вложении вариант для Pascal ABC.net
0,0
(0 оценок)
Ответ:
lalal2345
02.10.2020 19:03
Var n,i: Integer;
f: LongInt;
begin
writeln('vvedite n=');
readln(n);
f:=1;
for i:=1 to n do
f:=f*i;
writeln('faktorial=',f);
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
3pirat122
16.10.2022 03:34
Что такое сортировка данных в электронной таблице?Выберите один из 4 вариантов ответа:1) это заполнение данных в таблице с клавиатуры в алфавитном порядке. 2) это...
lolgg2
17.10.2020 23:06
Придумай имя текстового файла в котором будет содержаться информация о твоём доме подчеркни собственное имя файла...
Викусик11112234556
30.10.2020 06:31
Что такое алгоритм? Приведите два-три примера алгоритмов,изученных вами в школе....
Darkparadise02
10.12.2020 07:22
Посмотрите на ниже представленный код программы и определите, что делает программа: a=10 b=5 if a print(a) else: print(b) ! а) Напишите результат программы:...
skydux
09.02.2022 23:31
Выдели примеры, в которых отображаются действия над информацией. (Может быть несколько правильных вариантов ответа!) посадка картошки приготовление яичницы перевод...
valera228005
05.10.2021 16:27
с информатикой Задана арифметическая прогрессия. 7,6; 6,3; … . Сколько членов прогрессии нужно сложить, чтобы полученная сумма стала 0. Написать программу в паскале....
Бесполезная3
25.10.2022 21:00
3. При передаче сообщения с битом чётности произошло две ошибки. Сможет ли обнаружить ошибку принимающая сторона? ответ: Почему? А если ошибок будет три? четыре?...
ZEWER
13.03.2023 06:20
Даны три точки A, B, C на числовой оси. Точка C расположена между точками A и B. Найти произведение длин отрезков AC и BC. на питоне...
896426745
22.01.2023 23:58
Дано изображение. Определи, с какого устройства произведён ввод графической информации. файл блок питания сканер ссылка ниже с фото скопируйте и вставьте https://ykl-res.azureedge.net/77306fee-7a7b-4a8c-95ab-f1e8ece9f079/%D1%81%D0%BA2.png...
avysocka
12.03.2022 22:53
Чему равно значение переменной s, полученное в результате работы следующей программы. Текст программы приведён на трёх языках программирования. ответы: 120 132...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
N,N1:integer;
Begin
N1:=1;
Write('N = ');ReadLn(N);
For N:= 2 to N do
N1:=N1*N;
WriteLn(N,'! = ',N1)
End.
Во вложении вариант для Pascal ABC.net
f: LongInt;
begin
writeln('vvedite n=');
readln(n);
f:=1;
for i:=1 to n do
f:=f*i;
writeln('faktorial=',f);
readln;
end.