Question

Напишите программу, которая выводит первое слово переданной её символьной строки. Слово – это последовательность непробельных символов, ограниченная пробелами или концами строки. Решение с комментариями к каждой строке кода. Комментарии должны пояснять, что происходит в каждой строке программы, для чего она нужна и т.п.

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

Выходные данные
Программа должна вывести первое слово этой строки.

Примеры
входные данные
Vasya is a pupil.
выходные данные
Vasya

Answer 1

Ответ:

program z1;// название программы

var s:string;// описание переменной s (строки)

begin//начало блока программы

read(s);//ввод данных (строки)

if pos(' ',s)<>0 then //оператор выбора определяющий из одного слова строка или нет, если pos равно 0, то слово одно

write (copy(s,1,Pos(' ',s)-1))//если нет то вывод копии строки с 1 символа по позицию пробела минус 1 символ

else write (s)//если да то вывод просто заданной строки

end.//конец блока программы