Перейти к содержанию

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


Рекомендуемые сообщения

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

Ссылка на комментарий

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

Ссылка на комментарий
  • 4 недели спустя...

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


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

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

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


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

Ссылка на комментарий


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.

чтото вроде этого....

Ссылка на комментарий

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

add

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

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

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

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

 if s[i]=s[j] then 

еще

i<>j

Ссылка на комментарий

а можно еще сложность с 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.

Ссылка на комментарий

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

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

Ссылка на комментарий

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


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

Пример:

1234567

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


Ссылка на комментарий

Пожалуйста, войдите, чтобы комментировать

Вы сможете оставить комментарий после входа в



Войти
  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...