ИНФОРМАТИКА ОЧЕНЬ НУЖЕН ОТВЕТ. ЗА ОТВЕТЫ НА ВСЕ ВО ИНФОРМАТИКА ОЧЕНЬ НУЖЕН ОТВЕТ. ЗА ОТВЕТЫ НА ВСЕ ВО ИНФОРМАТИКА ОЧЕНЬ НУЖЕН ОТВЕТ. ЗА ОТВЕТЫ НА ВСЕ ВО ИНФОРМАТИКА ОЧЕНЬ НУЖЕН ОТВЕТ. ЗА ОТВЕТЫ НА ВСЕ ВО ИНФОРМАТИКА ОЧЕНЬ НУЖЕН ОТВЕТ. ЗА ОТВЕТЫ НА ВСЕ ВО ИНФОРМАТИКА ОЧЕНЬ НУЖЕН ОТВЕТ. ЗА ОТВЕТЫ НА ВСЕ ВО
Адекватная версия:
PascalABC.NET
begin
var expr := Readstring();
expr.Split(' ')[0].Println;
end.
Версия "Нас так учили"
var
expression: string;
s_index: byte;
begin
s_index := 1;
readln(expression);
while expression[s_index] <> ' ' do begin
write(expression[s_index]);
s_index := s_index + 1;
end;
end.
Объяснение:
Т.к по условию слово - последовательность непробельных символов, ограниченная пробелами или концами строки, то данная программа полностью игнорирует пунктуацию и считает любой символ частью того слова, с которым он не разделён пробелом.
Адекватная версия:
PascalABC.NET
begin
var expr := Readstring();
expr.Split(' ')[0].Println;
end.
Версия "Нас так учили"
var
expression: string;
s_index: byte;
begin
s_index := 1;
readln(expression);
while expression[s_index] <> ' ' do begin
write(expression[s_index]);
s_index := s_index + 1;
end;
end.
Объяснение:
Т.к по условию слово - последовательность непробельных символов, ограниченная пробелами или концами строки, то данная программа полностью игнорирует пунктуацию и считает любой символ частью того слова, с которым он не разделён пробелом.