вычислить s=1*2*3...n
вычислить
var s,i,n,integer;
begin
write('Vvedi 4islo'); readln (n);
s:=1;
for i:=1 to n do s:=s*i;
write(s);
begin
write('Vvedi 4islo'); readln (n);
s:=1;
for i:=1 to n do s:=s*i;
write(s);
Попробуй циклом вальнуть
Ваш аккаунт
Последние темы форума
- Музыка — 2019-04-26 23:59:43 (1)Общалка :) / Кристина Ивлеева
- Как внести числа в сгенерированный массив чисел СЛУЧМЕЖДУ — 2019-04-25 11:15:30 (0)
Visual Basic / wanx
- рабочее зеркало гидры — 2019-04-22 13:27:49 (1)Операционные системы / Tony_Montana
- гидра анонимный — 2019-04-21 15:37:08 (0)
Низкоуровневое программирование / Tony_Montana
- гидра браузер — 2019-04-21 11:49:42 (0)
Компьютерная безопасность / Tony_Montana
- Закрытие главной формы из другой. — 2019-04-19 09:08:27 (1)Borland C++ Builder / Lazy_Man
- гидра оф сайт — 2019-04-18 13:15:50 (0)
Студентам / Tony_Montana
- Информация про криптовалюту. — 2019-04-18 04:38:31 (6)Общалка :) / PotapShavanov
- ссылка на гидру зеркало — 2019-04-17 11:53:53 (0)
Базы данных / Tony_Montana
- гидра сайт доверенных — 2019-04-16 13:58:20 (0)
Фриланс / Tony_Montana
- Delphi Trichview замена текста — 2019-04-16 13:02:35 (0)
Delphi & Kylix / ale-sumkin
- Реально ли заработать на ставках? — 2019-04-16 07:34:02 (5)Общалка :) / Polernik