Правила форума
StrLComp.PASЯзык:
Русский
English
{ Пример программы для функции StrLComp }
uses Strings, Crt;
var
Result : PChar;
S1, S2 : array[0 .. 79] of Char;
begin
ReadLn(S1);
ReadLn(S2);
if StrLComp(S1, S2, 5) = 0 then
Result := 'одинаковые'
else
Result := 'разные';
WriteLn('Первые пять символов ', Result, '.');
end.
var
Result : PChar;
S1, S2 : array[0 .. 79] of Char;
begin
ReadLn(S1);
ReadLn(S2);
if StrLComp(S1, S2, 5) = 0 then
Result := 'одинаковые'
else
Result := 'разные';
WriteLn('Первые пять символов ', Result, '.');
end.
::
::
::
