Ответы
Ответ дал:
0
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
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
Вас заинтересует
1 год назад
5 лет назад
5 лет назад
8 лет назад
9 лет назад