массы n идентичных на вид монет среди которых одна фальшивая - легче или тяжелее остальных

[Carbon]

№2

const roman:set of char=['I','V','X','L','C','D','M'];

var line,res,num:string;
    i,len:integer;
    sentence:boolean;

function Number(num:string):integer;
var i,len,value,res,prev:integer;
begin
    len:=Length(num);
    prev:=0;
    res:=0;
    value:=0;

    for i:=len downto 1 do
    begin
        case num[i] of
            'I':value:=1;
            'V':value:=5;
            'X':value:=10;
            'L':value:=50;
            'C':value:=100;
            'D':value:=500;
            'M':value:=1000
        end;
        if value>=prev then
            inc(res,value)
        else
            dec(res,value);
        prev:=value;
    end;

    Number:=res
end;

begin
    readln(line);
    
    res:='';
    num:='';
    sentence:=true;
    
    len:=Length(line);
    for i:=1 to len do
        if line[i] in roman then
        begin
            num:=num+line[i];
            sentence:=false
        end
        else
        begin
            if num<>'' then
            begin
                Str(Number(num),num);
                res:=res+num;
                num:=''
            end;

            if line[i]='.' then
            begin
                res:=res+line[i];
                sentence:=true
            end
            else
            begin
                if (line[i] in ['a'..'z']) and sentence then
                begin
                    res:=res+UpperCase(line[i]);
                    sentence:=false
                end
                else
                    res:=res+line[i];
            end
        end;

    writeln(res);

    readln
end.

[Wintrymoon]

Сообщение от Carbon

№2

                    res:=res+UpperCase(line[i]);

А почему здесь ошибка??? Error 3: Unknown identifier

[Карась]

UpperCase - функция.

В Паскале её наверное нет... Это из модуля SysUtils

[Serge_Bliznykov]

для латиницы как раз такая есть. Попробуйте так:
res:=res+UpCase(line[i]);

[Wintrymoon]

Сообщение от Serge_Bliznykov

для латиницы как раз такая есть. Попробуйте так:
res:=res+UpCase(line[i]);

Пасиб огромное))))).....а то моя жизнь висела на волоске))......