Question

Составить программу, которая определяет, какое из двух введенных с клавиатуры слов разной длины более длинное, и выводит это слово. Паскаль абц

Answer 1

Program z567;

 Var s_1,s_2:string; l,l_1:integer;

Begin

 write('Введите 1-ое слово - '); readln(s_1);

 write('Введите 2-ое слово - '); readln(s_2);

 

 if (s_1.Length > s_2.Length) then writeln(s_1)

                              else writeln(s_2);

End.

Answer 2

Вот пример программы на языке Паскаль, которая сравнивает два слова, введенных с клавиатуры, и определяет, какое из них более длинное:

pascalCopy code
program CompareWords;

var
  word1, word2: string;

begin
  writeln('Введите первое слово:');
  readln(word1);
  
  writeln('Введите второе слово:');
  readln(word2);
  
  if Length(word1) > Length(word2) then
    writeln('Первое слово "', word1, '" является более длинным.')
  else if Length(word2) > Length(word1) then
    writeln('Второе слово "', word2, '" является более длинным.')
  else
    writeln('Оба слова имеют одинаковую длину.');
    
  readln;
end.

После запуска программы вы сможете ввести два слова с клавиатуры, а затем программа определит, какое из них более длинное и выведет соответствующее сообщение.