Даны 2 строки символов: S1 и S2. Узнать, которая строка короче путем определения и сравнения длин строк. Результаты выдать на экран. Паскаль!!!!
Answers & Comments
asoiiuvar s1,s2:string; l1,l2:integer; begin readln(s1); readln(s2); l1:=length(s1); l2:=length(s2); if l1<l2 then writeln('1-я строка короче') else if l2<l1 then writeln('2-я строка короче') else writeln('Строки имеют одинаковую длину'); end.
Answers & Comments
begin
readln(s1);
readln(s2);
l1:=length(s1);
l2:=length(s2);
if l1<l2 then writeln('1-я строка короче')
else if l2<l1 then writeln('2-я строка короче')
else writeln('Строки имеют одинаковую длину');
end.
Пример:
program
var
2-я строка короче
Verified answer
Текст программы + скрин с примером выполнения программы.Program Stroki;
var S1,S2 : string[250];
begin
writeln('Введите 1-ю строку: ', S1);
Readln(S1);
writeln('Введите 2-ю строку: ', S2);
Readln(S2);
if Length(S1)>Length(S2)
then writeln('Длиннее строка 1')
else
if Length(S1)<Length(S2)
then writeln('Длиннее строка 2')
else writeln('Длины строк равны')
end.