Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Эльман
1 / 1 / 0
Регистрация: 04.07.2012
Сообщений: 21
#1

N=20+15! - Turbo Pascal

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

N=20+15! .
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
MayaNash
1291 / 459 / 151
Регистрация: 24.08.2011
Сообщений: 2,245
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.
Рейтинг@Mail.ru