Нужна ваша ! чему будет равна переменная «c» после выполнения этой программы: a : = 20 b : = 3 b : = - id129027520210513 от 25Виктория03 13.05.2021 12:36

Question

Информатика: Нужна ваша ! чему будет равна переменная «c» после выполнения этой программы: a : = 20 b : = 3 b : = div(a,b) + b c : = mod(a,b) + a

25Виктория03 · Accepted Answer

Type
    piece = record
        value: string[10];
        count := 1;
    end;

var
    pieces: array[1..200]of piece;
    i, j, n, pieces_n: integer;
    s, p: string;
    found: boolean;
    imax:=1;

begin
    read(s);
    read(n);
    for i := 1 to length(s) - n + 1 do
    begin
        p := Copy(s, i, n);
        found := false;
        for j := 1 to pieces_n do
            if pieces[j].value = p then begin
                pieces[j].count := pieces[j].count + 1;
                found := true;
                if pieces[imax].count < pieces[j].count then
                    imax := j;
                break;
            end;
        if not found then begin
            pieces_n := pieces_n + 1;
            pieces[pieces_n].value := p;
        end;
    end;

    writeln(pieces[imax].value);
end.

Нужна ваша ! чему будет равна переменная «c» после выполнения этой программы: a : = 20 b : = 3 b : = div(a,b) + b c : = mod(a,b) + a

MOGZ ответил