Question

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

Answer 1

var

 k: integer;

 s: string[50];

 

begin

 Readln(s);

 k := Pos(' ', s);

 Writeln(Copy(s, 1, k - 1))

end.

Answer 2

Вот пример программы на языке Pascal ABC, которая позволяет вывести на экран первое слово из строки, состоящей из двух слов, разделенных пробелом. Ввод строки осуществляется с клавиатуры:

pascalCopy code
program FirstWordFromString;

var
  inputString: string;
  firstWord: string;
  spaceIndex: integer;

begin
  writeln('Введите строку, состоящую из двух слов, разделенных пробелом:');
  readln(inputString);

  spaceIndex := pos(' ', inputString); // Находим индекс пробела

  if spaceIndex > 0 then
  begin
    firstWord := copy(inputString, 1, spaceIndex - 1); // Извлекаем первое слово
    writeln('Первое слово: ', firstWord);
  end
  else
    writeln('Введенная строка не содержит двух слов, разделенных пробелом.');

  readln;
end.

Программа запрашивает у пользователя ввод строки и ищет первое вхождение пробела в строке с помощью функции pos. Если пробел найден, то с помощью функции copy извлекается первое слово и выводится на экран. Если пробел не найден, выводится сообщение об ошибке.