Даны две символьные строки. Определить, в какой из них больше символов и насколько....

Question

Даны две символьные строки. Определить, в какой из них больше символов и насколько.
Оформить ввиде программы в Паскале.
Помогите, пожалуйста.

Answer 1

// PascalABC.NET 3.0, сборка 1088
var
  s1,s2:string;
  d:integer;
begin
  Write('Первая строка: '); Readln(s1);
  Write('Вторая строка: '); Readln(s2);
  d:=Length(s1)-Length(s2);
  if d>0 then Writeln('Первая строка длиннее на ',d)
  else
    if d<0 then Writeln('Вторая строка длиннее на ',-d)<br>    else Writeln('Строки имеют равную длину')
end.

Answer 2

Pascal abc
Проверка:
введите строку 1: 12345
введите строку 2: 123
в 1ой строке символов больше на 2

Comments

У Вас при равной длине строк будет сообщение: "во 2ой строке символов больше на 0"