Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Michell2102
30.12.2021 04:24 •
Информатика
Напишите программу алгоритм который по введенному числу n(1_< __< 10) вычислит и напечатает значение n! =1*2*3**n
Показать ответ
Ответ:
dianadavletova
29.07.2020 13:14
Program test;
Var
n, i,a:integer;
Begin
Write( 'введите число: ');
readln(n);
for i:=1 to n do a:=a*n;
write(n,'!= ',a);
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
Треугольник228
11.10.2020 14:58
Встречено Writeln а ожидалось ; program b; var x,y:real; begin writeln( Введите первое число ); readln(x); Writeln( Введите второе число ); readln(y); if (x 10) and (y 10) then x:=x*y...
Yangelskiy
15.11.2020 21:51
Решите табличным три друга - иван, семён, николай купили различные гоночные машины белого, голубого и зеленого цвета. иван купил не белый автомобиль, семён купил не голубой автомобиль....
BlueEyesCatОоак
09.12.2021 15:42
дана масса в килограммах. найти число полных тонн в ней. 2. дан прямоугольник с размерами 543*130 мм. сколько квадратов со стороной 130 мм можно отрезать от него. 3. с клавиатуры вводится...
yagyaevaremziep0dlir
29.10.2022 09:38
Сравните свойства алгоритма и программы: что между ними общего и чем они отличаются. Приведите примеры....
Leska7
03.10.2020 02:51
Навести приклад у яких випадках використовують цикли з умовою...
кек903
01.06.2020 19:47
люди записываю значит игру литл найтмэрс 2 через бандикам и игра вылетает, а видео повреждено ЧТО ДЕЕЛАААТЬ?...
yuli200
03.10.2022 19:58
7. Укажите оператор ввода и выводв sepprintwhiletypeinput сор...
lenya013
15.04.2023 18:56
Как вы представляете информационное общество?...
kegemov
18.02.2023 03:54
Назовите общий вид оператора while.Назовите общий вид оператора for....
ИНТЕРНЕТ1111
20.02.2022 16:06
Задание в файле. ИНФОРМАТИКА...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var
n, i,a:integer;
Begin
Write( 'введите число: ');
readln(n);
for i:=1 to n do a:=a*n;
write(n,'!= ',a);
End.