Question

Даны 3 разные строки символов. Определить самую длинную строку и выдать ее длину на экран.Паскаль.

Answer 1

Program n1;
var s,s1,s2: string;
function max(a,b,c: integer): integer;
begin
max:=0;
if (a>b) and (a>c) then max:=a else
if (b>c) and (b>a) then max:=b else
if (c>a) and (c>b) then max:=c;
end;
begin
readln(s);
readln(s1);
readln(s2);
write(max(length(s),length(s1),length(s2)));
end.

Answer 2

Var
S1,S2,S3:string;
A:integer;

Begin
Write('Введите первую строку: ');ReadLn(S1);
Write('Введите вторую строку: ');ReadLn(S2);
Write('Введите третью строку: ');ReadLn(S3);
A:=S1.Length;
if A<S2.Length then A:=S2.Length;
if A<S3.Length then A:=S3.Length;
WriteLn('Наибольшая длина: ',A);
End.

Answer 3

Для определения самой длинной строки из трех разных строк символов в Pascal, вы можете использовать следующий код:

pascalCopy code
program LongestString;

var
  str1, str2, str3: string;
  maxLength: integer;

begin
  // Ввод трех строк символов
  writeln('Введите первую строку:');
  readln(str1);
  
  writeln('Введите вторую строку:');
  readln(str2);
  
  writeln('Введите третью строку:');
  readln(str3);
  
  // Определение максимальной длины
  maxLength := Length(str1);
  
  if Length(str2) > maxLength then
    maxLength := Length(str2);
  
  if Length(str3) > maxLength then
    maxLength := Length(str3);
  
  // Вывод длины самой длинной строки
  writeln('Самая длинная строка имеет длину ', maxLength);
end.

Этот код позволяет пользователю ввести три строки символов и затем находит самую длинную строку и выводит её длину на экран.