Ребята помогите пожалуйста решить эти задачи))
1)Задана строка. Удалить из нее два последних символа.
2) Найти в списке из 5 фамилий все фамилии, начинающиеся со слога «Ни».
3)Из заданного текста выбрать цифры и записать в массив N, а буквы- в массив B. Все остальные символы записать в массив S.

1
2) как выглядит список и откуда он берется?

Ответы и объяснения

2013-11-22T22:49:13+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
3)
type
    char_array = array [1..1000] of char;

var
    a, b, c: char_array;
    s: string;
    i := 0;

procedure add(c: char; var ca: char_array);
var
    i := 0;
begin

    repeat
        i := i + 1;
    until ord(ca[i]) = 0;
    ca[i] := c;
//    writeln('add - ',c,' ',i,' ',ca[i]); 
end;

procedure show(ca: char_array);
var
    i := 1;
begin
    write(ca,':');
    if ord(ca[i]) <> 0 then
        repeat
            write(ca[i], ' ');   
            i := i + 1;
        until ord(ca[i]) = 0;
    writeln;
end;

begin
    read(s);
    for i := 1 to length(s) do
        if s[i] in ['0'..'9'] then
            add(s[i], a)
        else if (s[i] in ['A'..'z']) or (s[i] in ['А'..'я']) then
            add(s[i], b)
        else
            add(s[i], c);

    show(a);
    show(b);
    show(c);
end.

var
s := '';i := 0;

begin
readln(s);
s[length(s)] := chr(0);
s[length(s) - 1] := chr(0);
writeln(s);
end.
это 1