Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Эльман
1 / 1 / 0
Регистрация: 04.07.2012
Сообщений: 21
#1

N=20+15! - Turbo Pascal

12.07.2012, 11:48. Просмотров 240. Ответов 1
Метки нет (Все метки)

N=20+15! .
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
MayaNash
1285 / 453 / 47
Регистрация: 24.08.2011
Сообщений: 2,214
12.07.2012, 12:06 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
 
function factorial(int: integer): real;
var i: integer;
    res: real;
begin
res:=1;
for i:=2 to int do res:=res*i;
factorial:=res;
end;
 
 
begin clrscr;
writeln('N = 20 + 15! = ', factorial(15) + 20:0:0);
readkey; end.
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.