TolkienDRR Опубликовано 8 февраля, 2010 Жалоба Поделиться Опубликовано 8 февраля, 2010 чем тебя extended не устроил? если мало 19-20 значимых цифр, то дорога тебе к длинным числам. а если 2 миллиарда всего, то тебе extended'а хватит. если не ошибаюсь, то кардинал целые от 0 до 4 миллиардов (то бишь беззначное longint). Цитата Ссылка на комментарий
User1667 Опубликовано 8 февраля, 2010 Жалоба Поделиться Опубликовано 8 февраля, 2010 ммспасибпропустил) Цитата Ссылка на комментарий
Pride Опубликовано 9 февраля, 2010 Жалоба Поделиться Опубликовано 9 февраля, 2010 User1667ну ты ещё наглее, хочешь на МИФ пробиться?но эту задачу нереально решить))) Цитата Ссылка на комментарий
TolkienDRR Опубликовано 9 февраля, 2010 Жалоба Поделиться Опубликовано 9 февраля, 2010 что за миф то? ))) Цитата Ссылка на комментарий
Pride Опубликовано 10 февраля, 2010 Жалоба Поделиться Опубликовано 10 февраля, 2010 Какая-то несчастная олимпиада, там три блока задач: по Математике, Информатике, Физике, первый тур заочный, вот они и просят помощи. Цитата Ссылка на комментарий
TolkienDRR Опубликовано 10 февраля, 2010 Жалоба Поделиться Опубликовано 10 февраля, 2010 а нафега туда попадать, если вы простые задачки на заочном туре еле решаете то? о_Опо мне бессмысленно =) Цитата Ссылка на комментарий
Pride Опубликовано 10 февраля, 2010 Жалоба Поделиться Опубликовано 10 февраля, 2010 В том то и дело... , я, например, даже не пытался, ну там по математике разве что одну задачку решил, и всё, хватит, получил бесценный опыт xDD Цитата Ссылка на комментарий
Punisher Опубликовано 8 марта, 2010 Жалоба Поделиться Опубликовано 8 марта, 2010 Помогите пожалуйста с задачей, проблемка( *17Напечатанный текст из 100 литер, удалив из него повторные вхождения каждой литеры.st:='Я сегодня пошел в кино'st1:= сгд пш в киТ.Е. Удалить повторы...Буду благодарен) Цитата Ссылка на комментарий
Lakers Опубликовано 8 марта, 2010 Жалоба Поделиться Опубликовано 8 марта, 2010 uses crt;var s,s2:string;i,j:integer;f:boolean;beginread(s);s2:="";for i:=1 to length(s) do begin f=true; if s[i]<>' ' then for j:=1 to length(s) do if s[i]=s[j] then begin f:=false; break; end; if f then s2=s2+s[i]; end;writeln(s2);end.чтото вроде этого.... Цитата Ссылка на комментарий
TolkienDRR Опубликовано 8 марта, 2010 Жалоба Поделиться Опубликовано 8 марта, 2010 хм. что-то сомнения, что удалит во входной фразе Я сегодня пошел в кино букву я в слове сегодня.addой вру, не заметил что второй цикл опять с начала фразы for j:=1Добавлено спустя 53 секунды:зато другая ошибка ))))добавить надо в условие if s[i]=s[j] then еще i<>j Цитата Ссылка на комментарий
Lakers Опубликовано 8 марта, 2010 Жалоба Поделиться Опубликовано 8 марта, 2010 а можно еще сложность с n^2 перевести в 2*nuses crt;var s,s2:string;i:integer;a:array[1..256]of integer;beginread(s);s2:="";for i:=1 to length(s) do if s[i]<>' ' then inc(a[ord(s[i])]);for i:=1 to length(s) do if a[ord(s[i])]=1 then s2=s2+s[i];writeln(s2);end. Цитата Ссылка на комментарий
TolkienDRR Опубликовано 8 марта, 2010 Жалоба Поделиться Опубликовано 8 марта, 2010 Lakersтолько добавить условие на пробел во второй цикл. Цитата Ссылка на комментарий
Lakers Опубликовано 9 марта, 2010 Жалоба Поделиться Опубликовано 9 марта, 2010 TolkienDRRточно=) Цитата Ссылка на комментарий
Punisher Опубликовано 9 марта, 2010 Жалоба Поделиться Опубликовано 9 марта, 2010 Благодарю всех ответивших в теме))Очень) Цитата Ссылка на комментарий
TolkienDRR Опубликовано 9 марта, 2010 Жалоба Поделиться Опубликовано 9 марта, 2010 Да всегда рады размяться )кста, по идее орд у пробела же 32, так что:var s,s2: string; i: integer; a: array[0..255] of byte;begin readln(s); for i:=1 to length(s) do inc(a[ord(s[i])]); for i:=1 to length(s) do if (s[i]=' ') or (a[ord(s[i])]=1) then s2:=s2+s[i]; writeln(s2);end. Цитата Ссылка на комментарий
Lakers Опубликовано 9 марта, 2010 Жалоба Поделиться Опубликовано 9 марта, 2010 var s,s2: string; i: integer; a: array[0..255] of byte;begin readln(s); for i:=1 to length(s) do inc(a[ord(s[i])]); a[ord(' ')]:=1 { a[32]:=1} for i:=1 to length(s) do if a[ord(s[i])]=1 then s2:=s2+s[i]; writeln(s2);end. Цитата Ссылка на комментарий
Vol89 Опубликовано 15 марта, 2010 Жалоба Поделиться Опубликовано 15 марта, 2010 Может кто поможет. Программа для перевода числа в текст в рублях.Пример:1234567Один миллион двести тридцать четыре тысячи пятьсот шестьдесять семь рублей. Цитата Ссылка на комментарий
Lakers Опубликовано 15 марта, 2010 Жалоба Поделиться Опубликовано 15 марта, 2010 http://ulanovka.ru/forum/viewtopic.php?t=128400 Цитата Ссылка на комментарий
Vol89 Опубликовано 16 марта, 2010 Жалоба Поделиться Опубликовано 16 марта, 2010 Lakers ну если за деньги скажем сколько попросишь за такую задачку, которую я описал выше. Цитата Ссылка на комментарий
TolkienDRR Опубликовано 16 марта, 2010 Жалоба Поделиться Опубликовано 16 марта, 2010 Vol89, сроки и кол-во таких цифр? Цитата Ссылка на комментарий
Lakers Опубликовано 16 марта, 2010 Жалоба Поделиться Опубликовано 16 марта, 2010 Vol89Берусь! Цитата Ссылка на комментарий
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.