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

[TolkienDRR]

чем тебя extended не устроил? если мало 19-20 значимых цифр, то дорога тебе к длинным числам. а если 2 миллиарда всего, то тебе extended'а хватит. если не ошибаюсь, то кардинал целые от 0 до 4 миллиардов (то бишь беззначное longint).

[User1667]

мм

спасиб

пропустил)

[Pride]

User1667

ну ты ещё наглее, хочешь на МИФ пробиться?

но эту задачу нереально решить)))

[TolkienDRR]

что за миф то? )))

[Pride]

Какая-то несчастная олимпиада, там три блока задач: по Математике, Информатике, Физике, первый тур заочный, вот они и просят помощи.

[TolkienDRR]

а нафега туда попадать, если вы простые задачки на заочном туре еле решаете то? о_О

по мне бессмысленно =)

[Pride]

В том то и дело... , я, например, даже не пытался, ну там по математике разве что одну задачку решил, и всё, хватит, получил бесценный опыт xDD

[Punisher]

Помогите пожалуйста с задачей, проблемка( *17

---

Напечатанный текст из 100 литер, удалив из него повторные вхождения каждой литеры.

st:='Я сегодня пошел в кино'
st1:= сгд пш в ки

Т.Е. Удалить повторы...

---

Буду благодарен)

[Lakers]

uses crt;
var s,s2:string;
i,j:integer;
f:boolean;
begin
read(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]

хм. что-то сомнения, что удалит во входной фразе Я сегодня пошел в кино букву я в слове сегодня.

add

ой вру, не заметил что второй цикл опять с начала фразы for j:=1

Добавлено спустя 53 секунды:

зато другая ошибка ))))

добавить надо в условие

 if s[i]=s[j] then 

еще

i<>j

[Lakers]

а можно еще сложность с n^2 перевести в 2*n

uses crt;
var s,s2:string;
i:integer;
a:array[1..256]of integer;
begin
read(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]

Lakers

только добавить условие на пробел во второй цикл.

[Lakers]

TolkienDRR

точно=)

[Punisher]

Благодарю всех ответивших в теме))

Очень)

[TolkienDRR]

Да всегда рады размяться )

кста, по идее орд у пробела же 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]

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]

Может кто поможет.

---

Программа для перевода числа в текст в рублях.

Пример:

1234567

Один миллион двести тридцать четыре тысячи пятьсот шестьдесять семь рублей.

---

[Lakers]

http://ulanovka.ru/forum/viewtopic.php?t=128400

[Vol89]

Lakers ну если за деньги скажем сколько попросишь за такую задачку, которую я описал выше.

[TolkienDRR]

Vol89, сроки и кол-во таких цифр?

[Lakers]

Vol89

Берусь!