Определить из двух строк, какая строка больше по длине и на сколько.

(Pascal abc)

Question

Информатика

Просдока

13 февраля, 19:51

Определить из двух строк, какая строка больше по длине и на сколько.

(Pascal abc)

+4

Ответы (1)

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

Нюраша · Answer 1

Var s1, s2:string; l1, l2:integer;

begin

writeln ('Введите 1 строку:') ;

readln (s1) ;

writeln ('Введите 2 строку:') ;

readln (s2) ;

l1:=length (s1) ;

l2:=length (s2) ;

if l1>l2

then writeln ('Первая строка длиннее на ', l1-l2)

else if l1
else writeln ('Строки имеют одинаковую длину') ;

end.

Пример:

Введите 1 строку:

var s1, s2:string; l1, l2:integer;

Введите 2 строку:

begin

Первая строка длиннее на 28

Определить из двух строк, какая строка больше по длине и на сколько.(Pascal abc)

Определить из двух строк, какая строка больше по длине и на сколько.

(Pascal abc)