Ответы на вопрос:
Var f,i: integer; begin i: =1; f: =1; while i< 7 do begin i: =i+1; f: =f*i; end; writeln(i,'! = ',f); end. результат: 7! = 5040
Популярно: Информатика
-
. время заканчивается скоро ...
MarkohkaMolovko16.02.2021 02:55 -
с информатикой, заранее...
Zeus4125.01.2020 18:14 -
ответить на вопросы 1.какие программные средства создания БД вы знаете?...
arm2107.04.2022 08:11 -
Создать массив оценок, полученных студентами вашей группы на экзамене...
зюзя2427.08.2021 08:25 -
. Дано двовимірний масив цілих чисел. У кожному його рядку знайти перший...
alwina34706.07.2022 11:44 -
Имеют один вход и один выход на блок-схеме ... Выберите один или несколько...
аььарпашишки17.11.2022 00:23 -
Какое из приведённых имён не удовлетворяет логическому условию: (((Первая...
vectr200322.07.2020 09:32 -
Даны числа А = 12310 в десятиричной и В = 1258 в восьмиричной. Какое...
losangelina2324.04.2020 09:44 -
2. Сохраните файлы с одинаковой информацией в разных форматах. Исследуйте,...
Tolya56721.09.2021 00:43 -
3. Complete each sentence by choosing from the following devices: touch...
ksenia07schapov01.12.2022 20:55