Адекватная версия:
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.
Объяснение:
Т.к по условию слово - последовательность непробельных символов, ограниченная пробелами или концами строки, то данная программа полностью игнорирует пунктуацию и считает любой символ частью того слова, с которым он не разделён пробелом.
Чаще всего параллельные порты LPT используются для подключения к компьютеру печатающих устройств (принтеры).
Параллельные порты получили свое название благодаря методу передачи данных, т.к. они имеют восемь разрядов шины данных и передавать информацию байтами синхронно по восьми проводникам.
Сигналы данных могут дополнительно обеспечиваться собственными сигнальными линиями заземления — по одному на каждый канал данных. В таком случае, число сигналов возрастает до 25. Для соединения компьютера с устройством при параллельного интерфейса используется 25-ти контактный разъем Centronics.
Параллельные интерфейсы имеют высокую скорость передачи данных (до 150 К/сек) и низкую помехоустойчивость, что позволяет использовать кабель длинною не более трех метров.