Меню сайта

Категории раздела
Готовимся к олимпиаде по программированию (задачи взяты с сайта http://olimpiada.com.ru) [36]
Решение олимпиадных задач по программированию
Готовимся к олимпиаде по математике [3]
Решение олимпиадных задач по математике

Мини-чат

Наш опрос
Уважаемый посетитель сайта, к какой категории вы себя относите?
Всего ответов: 5501

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Сайт в каталогах


Сайт    Банк Интернет-портфолио учителейКаталог сайтов Каталог сайтов 'Российское образование в сети' Справочник сайтов учителей и для учителя Учительский портал Сеть творческих учителей Личный сайт Фоновой Натальи Леонидовны учителя математики и информатики

Погода в Вязниках


Главная

Регистрация

Вход
Вы вошли как Гость | Группа "Гости" | RSS


Личный сайт учителя математики и информатики

Фоновой Натальи Леонидовны



Вторник, 18.06.2019, 11:48
Главная » Файлы » Внеурочная деятельность » Готовимся к олимпиаде по программированию (задачи взяты с сайта http://olimpiada.com.ru)

Произведение
14.02.2012, 08:30
Условие:
Дано натуральное число N. Вычислить произведение первых N сомножителей: (2/1)*(2/3)*(4/3)*(4/5)*...

Технические условия:
Стандартные.

Примеры входных и выходных файлов:
Отсутствуют.

Решение:
Идея решения. В цикле прибавляем 2 поочередно к числителю (переменная Х) или к знаменателю (переменная Y), накапливая произведение (переменная Res).

var
res:real;
i,n,x,y, flag: integer;
begin
write('n=...');
readln(n);
res:=1;
flag:=0;
x:=2;
y:=1;
for i:=1 to n do
begin
res:=res*x/y;
if flag=0
then y:=y+2
else x:=x+2;
flag:=1-flag;
end;
writeln(res);
end.
Категория: Готовимся к олимпиаде по программированию (задачи взяты с сайта http://olimpiada.com.ru) | Добавил: admin
Просмотров: 718 | Загрузок: 0 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Форма входа

Поиск

Кнопка сайта

Одна кнопка

время жизни сайта

Сайт участвует
конкурс сайтов 

Новости образовани

Фраза дня

Web-мастеру

OperaFirefoxGoogle ChromeDownload Master
QIPSkypeµTorrentTeamViewer
Dr.Web CureITAvira AntiVirTotal CommanderCDBurnerXP
PicasaIrfanViewCheMaxDAEMON Tools
AIMPKMPlayerBSplayerK-Lite Codec Pack

Установить себе такой Блок
Скрипты и HTML для uCOz

Раскрутка сайта
Graffiti Decorations(R) Studio (TM) Site Promoter

Copyright MyCorp © 2019
/td>