Помогите пожалуйста решить две задачи на Паскале

[Lynn]

Во второй задачки пишешь цикл от 20 до 50 с шагом 2 и выводишь на печать что-нибудь навроде
{град. С}={формула перевода C в F}

Формулу сам придумаешь или посморишь где-нибудь.
Исходные данные для формулы:
0 C = 32 F
100 C = 212 F

Первая задача аналогична, но формула еще проще <!--emo&:)--><!--endemo-->

[Scooter]

Я что тоже не так сказал, админ ну чтож, я высказал, что думаю.........

[Anthony Fox]

Примерно все так:
Задача 2:
var
ArrayOfElements: array[0..9] of Real;
I: Byte;
Proiz: Real;
begin
For I:=0 to 9 do
WriteLn('Введите элемент ',I,': '); {Вводятся элементы}
Proiz:=1;
for I:=0 to 9 do
if ArrayOfElements[I] < 0 then Proiz:=Proiz * ArrayOfElements[I];
WriteLn('Произведение: ',Proiz);
end.

Извиняюсь, где вводятся числа, не WriteLn, а ReadLn.

QUOTE (Scooter @ May 9 2003, 12:42)
<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->To Shelix
Но Товарищ старший сержант, ну не научился я решать задачи, но обещаю исправлюсь, хотя программирование это не моя область интересов, мне интресно, что-нибудь настройка железа или системное администрирование, но я говорю постараюсь разобраться в этом.
А вы говорите, что это лёгкие задачи, тогда поробуйте решить эти задачи:
Задача №1
Напечатать таблицу соответствия между весом в фунтах и весом киллограммах для значений от 1 до 10 фунтов, с шагом 1 фунт=400 граммов.
Задача №2
Напечатать таблицу перевода температур из градусов по шкале цельсия в градусы шкалы форенгейта для значений, от 20 до 50 градусов цельсия, с шагом 2 градуса.
Если те задачи, я хоть немного понял, а вот эти..........не понимаю.
Вот попробуйте их решить, а то вы говорите ламерские, ламерские, вот если их решите получите Respect, но конечно можете не решать, но постарайтесь !!! Мне решение этих задач тоже нужно !!!<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->

Scooter, ты думай за компом сидеть так себе? Учись, могу рекомендовать Turbo Pascal 7.0 Фаронов В.В. Можешь еще у Shelix'а спросить что-нибудь. Он тебе тоже порекомендует. Да и займись математикой...

from Scalder
У нас это делаеться вот так <!--emo&:)--><!--endemo-->

[BuG]

2Scooter
Дело не в том что я админ, а втом что ты не хочешь себе сам помочь. Ты хочешь чтоы тебе решили, а это никому не интересно. Если ты ен можешь сделать простейшего, то когда будут задавать сложнее ты опять будешь здесь попрошайничать. Попробуй подумать, и все получится.

ЗЫ. Тут ктонибудь обязательно напомнит мне что я недавно просил написать мне Крестики-Нолики на паскале, но это не то. Я по крайней мере пытался написать сам, жаль не хватило опыта и времени довести до ума. Огромное спасибо Данику что взял мои наброски и довел до ума <!--emo&:)--><!--endemo-->)) СПАСИБО! <!--emo&:)--><!--endemo-->)) Это так, пользуясь случаем...

2Anthony Fox
ЗЗЫ. Более двух постов подподряд у нас считается дурным тоном... Это так, на будущее... Ну и эти лучш9е поправь, а модеры зачистят... Спасибо <!--emo&:)--><!--endemo-->)

[Shelix]

2BUG
Полностью с тобой согласен.

Люди, задавайте вопросы, но не "решите мне эту задачу", а типа, помогите с алгоритмом для задачи или конкретные вопросы по языку.

<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->Ну и эти лучш9е поправь, а модеры зачистят<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
Сорри за офтоп, а как можно в таком случае подправить, ведь кнопки "удалить сообщение" теперь нет?

[BuG]

2Shelix
редактируешь мессаги, делаешь одну нормальную а в остальных пишешь типа "НА УДАЛЕНИЕ МОДЕРАМ" и все <!--emo&:)--><!--endemo-->) МОдеры зачистят <!--emo&:)--><!--endemo-->)) Да и я зачищаю обычно если вижу <!--emo&:)--><!--endemo-->

[dAnIK SeNT]

Тема <a href='http://fileforum.ru//index.php?act=ST&f=10&t=6255' target='_blank'>разделена</a>.

[Shelix]

А вот вам задача, которую я не смог решить на турнире ICL, может найдется здесь, кто сможет?
<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->Имеется N монет, одна из которых  может оказаться фальшивой. Фальшивая монета легче или тяжелее настоящей.  Имеются также чашечные весы  без шкалы и гирь, с помощью которых  можно  только сравнивать общий вес любых двух групп с одинаковым количеством монет и узнать,  имеют ли эти две группы равный вес, либо какая из групп легче другой.  Составить программу,  определяющую минимальное количество взвешиваний K,  за которое c гарантией можно найти фальшивую монету, если она имеется.   
Входной файл INPUT.TXT  содержит значение N (1 <= N <= 2 000 000 000).
Выходной файл OUTPUT.TXT  должен содержать соответствующее значение K либо -1, если задачу решить невозможно.   
Пример: 
INPUT.TXT      4
OUTPUT.TXT    3 
<!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->

[dAnIK SeNT]

2Shelix
Что-то я не совсем понял. Разве эта задача не решается последовательным делением кучки пополам? задача решается всегда <!--emo&:)--><!--endemo-->

[Shelix]

2dAnIK SeNT
Ни в коем случае. Ты просто не понял задачу.
Например, какой ответ у тебя будет при 12 монетах?

[Kirill]

2Shelix
<!--QuoteBegin--></span><table border='0' align='center' width='95%' cellpadding='3' cellspacing='1'><tr><td>QUOTE </td></tr><tr><td id='QUOTE'><!--QuoteEBegin-->Ни в коем случае. Ты просто не понял задачу.
Например, какой ответ у тебя будет при 12 монетах? <!--QuoteEnd--></td></tr></table><span class='postcolor'><!--QuoteEEnd-->
А в чем проблема?
Когда остануться 3 монеты: фальшивая та которая
1. Легше или тяжелее (весы не равны)
2. Та, которая не на весах (весы равны)

[Shelix]

2Kirill В случае трех монет все понятно. Там два взвешивания. А для 12 у тебя какой ответ?

[Kirill]

3.
1. 12/2=6
2. 6/2=3
3. 3/2=1

[Shelix]

2Kirill А поподробнее. При взвешивании 12 ты как определишь, в какой из этих кучек фальшивка? Нам неизвестно, легче она или тяжелее

[Kirill]

2Shelix
Прав.
Я не посмотрел истинного вопроса задачи.