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

Информатика

Зоя

29 июля, 10:45

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

+3

Ответы (1)

Знаете ответ?

Вилен · Answer 1

Begin

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

readln (a) ;

readln (b) ;

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

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

end.