Турбо Паскаль.

интернет компьютеры

найти N член последовательности 1,2,4,5,7,9,10,12,14,16,...... где после первого члена идут2 четных числа, потом 3 нечетных ,потом 4 четных и т д

и ещё одна

определить наибольшее количество идущих подряд * в произвольном ряду напр. abcd**efw***ddff**втвет

вторую решил через char, но хочу найти решение через string

Примечание:
ищи себя в новом вопросе

Примечание:
one,
помог-бы лучше чем требовать баллы.

Примечание:
program ano;
uses crt;
var a,k,n,i,l:integer;
begin
clrscr;
readln(n);
a:=1;
k:=1;
l:=1;
while l<n do begin
writeln(a);
a:=a+1;
for i:=1 to k do begin
writeln(a);
a:=a+2;
if l>=n then begin
writeln;
writeln(a);
readkey;
exit;
end;
l:=l+1;
end;
k:=k+1;
end;
writeln;
writeln(a);
readkey;
end.

у меня вот что

Примечание:
Артёмка,
здесь погрешность есть-при вводе 10 выводит 15.5

Примечание:
one,
это вообще для делфа или для паскаля?

Примечание:
Артёмка,
круто.
Ток вот я технологию так и не понял.

Примечание:
Как баллы делить будем?

Примечание:
всё сделал, всё работает
осталось 2 вопроса:
1) как я всё это буду осознавать?
2) как делить баллы?

Примечание:
>кстати сейчас у тебя закончатся ответы их всего 10!
holy shit!!!
да ниче, у меня второй акк есть на этот случай

мне оно надо для самообразования
я попутно с этим начал учить C++(как ты мог заметить из моих предыдущих вопросов) и вот щас думаю как я буду учить С++ если не могу осилить простейшие задачки на паскале

Примечание:
значит one идет в отдельный вопрос под названием 1
Ответы:
а компенсация , за первое будет ?
var n: longint;
begin
 readln(n);
 writeln(2 * n - trunc(sqrt(8 * n) + 1) / 2);
end.
блин задал задачу примерно так но еще пока не работает :(((
Артёмка, ты гений как ты до этого додумался ?
Вот так правильно.
var n: longint;
begin
readln(n);
writeln(2 * n - trunc(sqrt(8 * n - 7) + 1) / 2);
end.
подождите не закрывайте, я свой вариант сделаю!!!
// ну вот покушал нейронов в голове прибавилось ошибка была с else :)
// все работает можете тестировать
Общем у меня смысл такой из ряда делаем дифференциал
то есть вместо 1,2,4,5,7,9,10,12,14,16,.
представляем его в виде дифференциала
1,2,1,2,2,1,2,2,2,1,2,2,2,2,1,2,2,2,2,2
и тогда все становится легко и понятно...
> здесь погрешность есть-при вводе 10 выводит 15.5
Извини, криво написал, а проверить возможности нет. Вот так должно быть.
2 * n - trunc((sqrt(8 * n - 7) + 1) / 2)
Артёмка, у вас нужно 0.5 добавить, потом округлять, ну все равно круто, правда! преклоняюсь перед великим математиком!!!
на 10000 тоже ошибка 19858,5 должно быть 19859... и еще встречается...
даже математика без 0.5 не работает :))
one, если тебе нравится решать подобные задачи, загляни на http://acm.timus.ru. Там, правда, большинство задач на английском языке, но есть и на русском.
Дополнение #5  какая разница ? конечно под делфи
сейчас сделаю под голый паскаль
только комментарии убери борланд паскаль не понимает "//"
(* Release :)
все проверил, на BP7 - работает,
только там integer маленький... 16бит...
*)
Дополнение #7   их всего 10....
if Артёмка не обидится then отдай ему :)
у него подход более фундаментальный!
Дополнение #8
ты на этот счет не беспокойся :)
я тоже не совсем понимаю твоей программы...
и совсем не понимаю с Артемкиными рядами...
работает да и ладно...
я сам когда начал писать думал по одному, вышло по другому...
а Артемка предложил третье...
тебе оно зачем для самообразования ? или преподам объяснять ?
(* И вот еще для красоты чтоб все переменные начинались с 0 !
*)
> как я всё это буду осознавать?
Попробуй сам найти в этой последовательности закономерности, когда почувствуешь, что начал понимать её, всё станет совсем просто. Кстати, решения подобных задач не зависят от того, на каком языке ты хочешь их запрограммировать.
Nxaj, могу тебя обрадовать не такая уж она простая, как кажется на первый взгляд...
повседневные задачи куда проще, там просто больше рутины, а такого рода головоломки встречаются крайне редко...
Дополнение #10
я то думал ты хочешь дискуссию продолжить  :))
ну все равно спасибо!
one,
10 класс однако.
Как я в ВУЗ поступать буду?
осознание по моему опыту придет из анализа проги, можно обойтись без теории и всё понять на практике
Nxaj, ты лучше попроси Артёмку чтоб он еще какой либо фокус показал!
если так дело пойдет скоро операционная система будет умещаться в одну строку...
one,
2-я задача ещё не решена......
так что переносим все наши разговоры
Артёмка , признавайтесь кто Вы ???  :))
изобретатель симметричной криптографии ?
или работаете предсказателем курса валют ?
или метеорологический прогноз ?
///
а если серьезно что вы думаете о простых числах ?
их закономерность наука нашла или еще нет ?


16 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.