Program p_1; var a:string[50];b:string[50]; begin write('Заполните строку А и B ');...

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

Comments

Ты вводил слова через пробел?

---

Тут дело в том, что ты вводил все своё выражение в переменную "а", а переменная "b" оставалось пустой.

Answer 1

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