Question

Program p_1; var a:string[50];b:string[50]; begin write('Заполните строку А и B '); read(a,b); if length(a)>length(b) then writeln(' Первая строка длиннее ') else writeln(' Вторая строка длиннее '); end. У меня пишет всегда A длиннее B.В чем лажа товарищи?

Answer 1

Begin
write('Заполните строку А и B ');
readln(a);
readln(b);
if length(a)>length(b) then writeln('Первая строка длиннее ')
else writeln('Вторая строка длиннее ');
end.