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. В чем лажа товарищи?

Question

Информатика

Аделина

17 августа, 04:14

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. В чем лажа товарищи?

+4

Ответы (1)

Знаете ответ на вопрос?

Федюша · Answer 1

Begin

write ('Заполните строку А и B ') ;

readln (a) ;

readln (b) ;

if length (a) >length (b) then writeln ('Первая строка длиннее ')

else writeln ('Вторая строка длиннее ') ;

end.