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.В чем лажа товарищи?
Answers & Comments
write('Заполните строку А и B ');
readln(a);
readln(b);
if length(a)>length(b) then writeln('Первая строка длиннее ')
else writeln('Вторая строка длиннее ');
end.