Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?
Гродненский Форум
23 Июль 2025, 05:29:59
Новости, реклама:
   Главная   Новости Гродно Помощь Игры Календарь Войти Регистрация   Меню
Гродненский Форум > Компьютеры > Программирование > Тема: Re: PASCAL RULEZZzzz
(Модераторы: Админ, barmalei) > Тема:

Сообщение #417261

Страниц  : 1  Все   Вниз
  Печать  
Автор Тема: Re: PASCAL RULEZZzzz  (Прочитано 8075 раз)
0 Пользователей и 1 Гость смотрят эту тему.
coolasm
Почетный гродненец
*****

Репутация: +102/-3
Offline Offline

Пол: Мужской
Сообщений: 1458


//---------//

Просмотр профиля
« Ответ #30 : 15 Январь 2007, 12:07:38 »

var
a:real;
result:real;
n:integer;
i:integer;
begin  
readln(a);                          {считываем переменную a}
readln(n);                          {считываем переменную n}
result:=a;
for i:=1 to n-1 do
 begin
  result:=result*(a+i);        {a*(a+1)*...(a+n-1)}
 end;
writeln(result); {выводим результат}
end.

Проверять непроверял но вроде должно работать
Записан

HTTP Error 404 - File or directory not found.
Страниц  : 1  Все   Вверх
  Печать  
 
Перейти в:  

Войти
Войдите, чтобы добавить комментарий

Войдите через социальную сеть

Имя пользователя:
Пароль:
Продолжительность сессии (в минутах):
Запомнить:
Забыли пароль?

Контакт
Powered by MySQL Powered by PHP Мобильная версия
Powered by SMF 1.1.20
SMF © 2006-2025, Simple Machines
Simple Audio Video Embedder
| Sitemap
Valid XHTML 1.0! Valid CSS!
Страница сгенерирована за 0,105 секунд. Запросов: 20.