Войти Регистрация Спроси ai-bota

Вычислить значение n! ( n - натуральное, цикл until )

Ответ:

fsks

28.06.2020 17:03

Var i,f,N: integer;
begin readln(N);
i:=0;
f:=1;
repeat
i:=i+1;
f:=f*i;
until i<N;
write(f);
end.

0,0(0 оценок)

Популярные вопросы: Информатика

Princessa607

24.10.2022 00:24

Soul - 9. Заполните схему, используя предложенные ниже понятия и термины. В схеме отразите их соотношение, записав только порядковые номера понятий и терминов. Понятия и термины:...

ikoooo43

14.08.2020 10:26

Для чего создаются закладка документа...

protekte

17.04.2020 23:47

Продолжи список : - текстовые данные - - -...

Faskarvdbdbc

25.03.2022 16:08

Составить программу для подсчёта суммарного количества байт введённого предложения или слова (с предусловием и постусловием)....

gloria81

03.04.2021 11:51

Содержание любого компьютерного меню (7 букв)...

крис897

05.11.2020 10:30

Когда блез паскаль изобрел паскалину?...

malievaanzira05

05.11.2020 10:30

Вы приобрели котенка.каждый вечер во определяете его вес с весов.как можно описать на паскале массив,в котором будут храниться значения веса котенка в течение месяца(нпапиер,мая)?...

mashamelnik28

26.12.2021 14:09

Составить программу которая заменяет все нечетные числа на 31 массив из 15 целых чисел формируется случайным образом в интервале [20; 30]...

CrazyMashin

26.12.2021 14:09

Найти максимальный элемент массива x(10). написать программу в паскале ....

pudovkinao

28.03.2023 13:19

Вычислите: 101010102 – 2528 + 716. ответ запишите в десятичной системе счисления....

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку