Question

Ввести две фамилии.определить какая фамилия имеет большую длину.результат вывести в виде: Фамилия "Иваненко" имеет больше символов чем "Петров" Строго в PaskalABC*одноклам, увидевшим это привет *​

Answer 1

Ответ:

Объяснение:

Var p: string[8];

e: string;

begin

readln (p) ;

readln (e) ;

if p>e then

writeln ('фамилия ', p, 'имеет больше символов чем ',е)

else writeln ('фамилия ', e имеет больше символов чем ',p) ;

End.

Answer 2

Вот пример кода на языке PascalABC.NET, который вводит две фамилии и определяет, какая из них имеет большую длину, а затем выводит результат:

pascalCopy code
program CompareSurnames;

var
  surname1, surname2: string;

begin
  Write('Введите первую фамилию: ');
  Readln(surname1);
  Write('Введите вторую фамилию: ');
  Readln(surname2);

  if Length(surname1) > Length(surname2) then
    Writeln('Фамилия "', surname1, '" имеет больше символов чем "', surname2, '"')
  else if Length(surname2) > Length(surname1) then
    Writeln('Фамилия "', surname2, '" имеет больше символов чем "', surname1, '"')
  else
    Writeln('Фамилии "', surname1, '" и "', surname2, '" имеют одинаковую длину.');
end.

Просто скопируйте этот код в вашу среду разработки PascalABC.NET и выполните его. Он позволит вам ввести две фамилии и сравнить их длину.