profile
Опубликовано 6 лет назад по предмету Информатика от VikaW

Даны натуральное число n, символы S1...Sn, преобразовать последовательность, удалив каждый символ '.' и повторив все остальные. Помогите пожалуйста, для последней зачётки в этом году. В паскале...

  1. Ответ
    Ответ дан KateShou

    var

    s:string;

    n:integer;

    begin

    readln(n);

    readln(s);

    for i:=1 to n do 

    if (s[i]='.') then delete(s,i,1)

    else insert(s[i],s,i);

    writeln(s);

    end.

Самые новые вопросы