Помогите на Турбо Паскале!

Железо, софт, сети, программирование, ремонт, настройка и обслуживание.

#1  Рытун-Москва » Пт 26.05.2006, 3:35

Люди напишите код программы на Турбе до 19.30 26 мая....по Иркутскому времени....пожалуйста...к экзамену не допускают...


задание:

Дан массив а(1..n) целых чисел. Найти в этом массиве наибольшее количество подряд идущих нулей.

Заранее благодарен!!!
Аватара пользователя
Рытун-Москва
 
Сообщения: 14
Зарегистрирован: Ср 22.02.2006, 3:02
Откуда: Иркутск-Москва

#2  Miker » Пт 26.05.2006, 7:04

гы. напишу, как вернусь с дел, часиков в 15-16).. Что, тяжёлые нынче задания в МГУ?))
"Ох, деньги имеют изрядную силу
Коль можно девицу купить за кобылу"
Аватара пользователя
Miker
постоялец
 
Сообщения: 5057
Зарегистрирован: Вс 1.08.2004, 20:11
Откуда: Иркутскъ

#3  Рытун-Москва » Пт 26.05.2006, 14:29

Ну не в МГУ конечно....но все равно :lol: .... блин ну я даже не знаю че сказать...рад что еще остались добрые люди на земле :wink: !!!

буду ждать!

Добавлено спустя 41 минуту 55 секунд:

Слушай друг!!!...тут кое-что изменилось....другое условие...попробуй сделать если сможешь...

условие:

Найти номер наименьшего числа Фибаначии ,заканчивающегося 2-мя нулями. Найти само это число.

Просто ту уже сделали)
Аватара пользователя
Рытун-Москва
 
Сообщения: 14
Зарегистрирован: Ср 22.02.2006, 3:02
Откуда: Иркутск-Москва

#4  Miker » Пт 26.05.2006, 18:55

ясно. Короче - счас засяду.
"Ох, деньги имеют изрядную силу
Коль можно девицу купить за кобылу"
Аватара пользователя
Miker
постоялец
 
Сообщения: 5057
Зарегистрирован: Вс 1.08.2004, 20:11
Откуда: Иркутскъ

#5  Vadya corp. » Пт 26.05.2006, 20:14

Рытун-Москва Вот твоя прога:
Код: Выделить всё
uses crt;
var a,b,c,i,k:longint;
begin
clrscr;
i:=0;
a:=1;
b:=1;
k:=2;
while i<1 do begin
      c:=a+b;
      a:=b;
      b:=c;
      inc(k);
      if (c mod 100)=0 then i:=1;
end;
writeln(k);
readln;
end.

Что-то "сверхсложное" у вас задают :)
Если что - обращайся.
Если хотите пофотаться бесплатно, то пишите в личку
Аватара пользователя
Vadya corp.
постоялец
 
Сообщения: 1136
Зарегистрирован: Пт 26.05.2006, 20:02
Откуда: Иркутск

#6  Волшебник » Пт 26.05.2006, 23:09

Мля ну писец госпада =(
скора в красну книгу пападем.
Рытун-Москва - тебябы да к нашему преподу по алгаритмизации и програмированию!

Мне просто интересно шош будет если вам скажут слажить два масива и вычислить из того сто получилось минимум,максимум,среднее арефметическое и сумму всех чисел в масиве

Добавлено спустя 2 минуты 13 секунд:

как говарил наш кантуженый препд по алгаритмизации - алгаритмы надо решать, надо решать алгаритмы дети =)
Скажи нет наркотикам - выруби модем
Аватара пользователя
Волшебник
постоялец
 
Сообщения: 114
Зарегистрирован: Сб 4.02.2006, 14:30
Откуда: эфиопия форевер !!!

#7  Miker » Сб 27.05.2006, 0:14

Волшебник Какому преподу служили?
"Ох, деньги имеют изрядную силу
Коль можно девицу купить за кобылу"
Аватара пользователя
Miker
постоялец
 
Сообщения: 5057
Зарегистрирован: Вс 1.08.2004, 20:11
Откуда: Иркутскъ

#8  Рытун-Москва » Сб 27.05.2006, 1:01

Vadya corp. : Блин спасибо тебе большущее! сдал сегодня все ...получил допуск к экзамену....)....ваще короче если че-то надо будет ...я всегда готов помоч!....только не в програмировании....)...тут я 0... :lol:
Аватара пользователя
Рытун-Москва
 
Сообщения: 14
Зарегистрирован: Ср 22.02.2006, 3:02
Откуда: Иркутск-Москва

#9  Волшебник » Вс 28.05.2006, 14:58

Miker:Волшебник Какому преподу служили?



Фамиля ей Долгополова ( в энрго коледже преподает )
Аватара пользователя
Волшебник
постоялец
 
Сообщения: 114
Зарегистрирован: Сб 4.02.2006, 14:30
Откуда: эфиопия форевер !!!

#10  Miker » Вс 28.05.2006, 17:40

Волшебник слышал что й то о такое, только вот не помню где, от кого .. и слышал ли?)
"Ох, деньги имеют изрядную силу
Коль можно девицу купить за кобылу"
Аватара пользователя
Miker
постоялец
 
Сообщения: 5057
Зарегистрирован: Вс 1.08.2004, 20:11
Откуда: Иркутскъ

Аватара
спонсор



cron