Question

Даны две строки, выяснить совпадают их длины сделать в pascalABC

Answer 1

Ответ:

var s1,s2: string;

begin

readln(s1);

readln(s2);

if (s1.Length=s2.Length) then

writeln('Длины совпадают') else

writeln('Длины не совпадают');

end.

Answer 2

Вот пример кода на PascalABC, который позволяет выяснить, совпадают ли длины двух строк:

pascalCopy code
program CompareStringLengths;

var
  str1, str2: string;

begin
  // Ввод строк
  Write('Введите первую строку: ');
  Readln(str1);
  
  Write('Введите вторую строку: ');
  Readln(str2);
  
  // Сравнение длин строк
  if Length(str1) = Length(str2) then
    Writeln('Длины строк совпадают.')
  else
    Writeln('Длины строк не совпадают.');
end.

Программа сначала запрашивает у пользователя две строки, а затем сравнивает их длины с помощью функции Length. Затем выводится соответствующее сообщение о совпадении или несовпадении длин строк.