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.
Тэги:
| G+
Код для вставки: :: :: :: ::
Поделиться: // //