Помогите с турбо паскалем(РЕШЕНО)

28 января 2010

ввести довільний текст.
у даному тексті знищитивсі символи (,) і підрахувати довжину утвореного тексту


8 ответов в теме “Помогите с турбо паскалем(РЕШЕНО)”

  1. 1) Никита Токарчук ответил:

    28 января 2010 в 23:02

    переведи на русский, и завтра как сдам физику сделаю :D если раньше никто не сделает

  2. 2) Владимир Медведев ответил:

    28 января 2010 в 23:02

    http://vkontakte.ru/club5862140
    Написание программ на языке Pascal – быстро и недорого

    http://vkontakte.ru/club105253
    Программисты PASCAL

    http://vkontakte.ru/club2130
    PasCaL FoReVeR!!!!

  3. 3) Владимир Медведев ответил:

    28 января 2010 в 23:03

    Перевод:

    Ввести любой текст.
    В нем удалмть все символы (,)и подсчитать длину получившегося текста.

  4. 4) Никита Токарчук ответил:

    28 января 2010 в 23:03

    легко же. за "зачетку" подарок могу ))) но только если не срочно – завтра. ибо щас учу физику

  5. 5) Дарина Сильничая ответил:

    28 января 2010 в 23:03

    Мне тоже на завтра нужно)

  6. 6) Игорь Загилов ответил:

    28 января 2010 в 23:05

    http://pastebin.ca/1769816

  7. 7) Никита Токарчук ответил:

    29 января 2010 в 0:00

    моя проще )

  8. 8) Дарина Сильничая ответил:

    29 января 2010 в 0:00

    var str: string;
    i: integer;
    newstr: string;

    begin

    readln(str); {vvodim stroky}
    newstr:=''; {obnylyaem novuyu}

    for i:=1 to length(str) do {cikl po kaghdomy simvolu iz stroki}
    if str[i]<>',' then {esli simvol NE zapataya}
    newstr:=newstr+str[i]; {kopiruem ego v novuyu stroku}

    writeln(newstr); {vivodim novuyu stroku}
    writeln(length(newstr)); {vivodim dlinu novoy stroki}

    readln; {zaderzhka, mozhno udalit'}

    end.

    Спасибо Никита µαιηηιкα Токарчук