Правила форума
StrComp.PASЯзык:
Русский
English
uses Strings, Crt;
var
C : Integer;
Result : PChar;
S1, S2 : array[0 .. 79] of Char;
begin
ReadLn(S1);
ReadLn(S2);
C := StrComp(S1, S2);
if C < 0 then
Result := ' меньше, чем '
else
if C > 0 then
Result := ' больше, чем '
else
Result := ' равно ';
WriteLn(S1, Result, S2);
end.
var
C : Integer;
Result : PChar;
S1, S2 : array[0 .. 79] of Char;
begin
ReadLn(S1);
ReadLn(S2);
C := StrComp(S1, S2);
if C < 0 then
Result := ' меньше, чем '
else
if C > 0 then
Result := ' больше, чем '
else
Result := ' равно ';
WriteLn(S1, Result, S2);
end.
::
::
::
