Question

Составьте программу, которая позволяет вывести на экран монитора первое слово строки s. Строка s, состоящая из двух слов, разделенных пробелом, вводится с клавиатуры. Пример ввода: Пришла зима {строка s} Пример вывода: Пришла
(PascalABC)​

Answer 1

Ответ:

var s: string; // объявляем переменную для строки

readln(s); // считываем строку с клавиатуры

var p: integer; // объявляем переменную для позиции пробела

p := pos(' ', s); // находим позицию первого пробела в строке

var w: string; // объявляем переменную для первого слова

w := copy(s, 1, p - 1); // копируем подстроку от начала строки до пробела

writeln(w); // выводим первое слово на экран

надеюсь помог