Даны 2 строки символов: S1 и S2. Узнать, которая строка короче путем определения...

August 2021 2 18 Report

Даны 2 строки символов: S1 и S2. Узнать, которая строка короче путем определения и сравнения длин строк. Результаты выдать на экран. Паскаль!!!!

asoiiu var 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.

Пример:
program
var
2-я строка короче

2 votes Thanks 1

BooceMaster Спасибо!

petyaGavrikov

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.

1 votes Thanks 1

BooceMaster Спасибо!

Answers & Comments

Verified answer

pomogite pozhalujsta paskale69283383eb9f26071764ab973ea1f53 75556

matematicheskaya logika opros 100 studentov vse tri yazyka 5 nemeckij i ispans

pomogite vtoraya proizvodnaya funkciya y5cos3x v tochke x00

pomogite pozhalujsta ochen srochno fill in the gaps with the words and word com

pomogite pozhalujsta ochen srochno ya dam 50 ballov fill in the gaps with the w

otvetit na vopros v chyom sostoit krizis religii v sovremennom mire

paskal napisat programmu v kotoroj po poslednej cifre chisla opredelit pos

(D12*D3)...

pomogite pozhalujstae00bbec99a36fb7f2385fd119824e0c5 27725

srochno paskal 1 najti poryadkovye nomera minimalnyh i maksimalnyh iz da

рекомендуемые вопросы

Helpful Links

Helpful Social