Определить из двух строк, какая строка больше по длине и на сколько.
(Pascal abc)

Ответ учителя по предмету Информатика

var s1, s2:string; l1,l2:integer;

begin

writeln(‘Введите 1 строку:’);

readln(s1);

writeln(‘Введите 2 строку:’);

readln(s2);

l1:=length(s1);

l2:=length(s2);

if l1>l2

 then writeln(‘Первая строка длиннее на ‘,l1-l2)

 else if l1<l2 then writeln(‘Вторая строка длиннее на ‘,l2-l1)

   else writeln(‘Строки имеют одинаковую длину’);

end.

Пример:

Введите 1 строку:
var s1, s2:string; l1,l2:integer;

Введите 2 строку:
begin

Первая строка длиннее на 28