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

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

Показать ответ

Ответ:

Маргарита24012007

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 оценок)

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

JugerHangerKrag

20.04.2021 00:25

1.постройте таблицу истинности по следующим выражениям. 2. упростите выражения,указывая закона...

МиссисX2

22.06.2020 00:19

Составить программу для решения задачи при произвольных исходных данных. Вывести на экран все целые числа от 100 до 200, кратные трем. (цикл с предусловием)...

QueenBee2403

13.09.2022 02:52

Дан фрагмент электронной таблицы. Из ячейки D3 в ячейку Е4 была скопирована формула. При копировании адреса ячеек в формуле автоматически изменилась. Каким стало силовое значение...

Mаster001

25.02.2020 11:04

Когда Была Создана Самый Первый Компьютер в Мире ?...

diassultanov1

10.05.2021 17:41

Охарактиризовать две любые антивирусные программы....

слышала

10.05.2021 17:41

Где здесь ошибка program n_11; var a, b, c: real; var d: real; var x, x1, x2: real; begin writeln( расширение квадратного уровнения ); write( введите коофиценты a, b, c ); readln(a,...

KateSved

10.05.2021 17:41

Сравните свойства информации. актуальность и полнота....

Legodgidai

10.05.2021 17:41

Составьте программу на языке паскаля. даны 10 чисел .найти сумму чисел , которые не меньше 5....

Aron91

02.03.2023 07:47

Вфайле in.txt записаны 10 чисел. найти сумму чисел, которые не меньше 5. результат записать в файл out.txt....

xaverqenizadeoxg0iy

07.02.2023 19:48

Сколько значащих двоек в троичной записи значения выражения 3325+3300+3200-2*3235?...

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

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