Адекватная версия:
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.
Объяснение:
Т.к по условию слово - последовательность непробельных символов, ограниченная пробелами или концами строки, то данная программа полностью игнорирует пунктуацию и считает любой символ частью того слова, с которым он не разделён пробелом.
Поделитесь своими знаниями, ответьте на вопрос:
Переведите с Паскаля в Java const m = 20;{максимальное количество элементов} var a: array[1..m] of real; i, n: integer; begin Write('Введите количество элементов (от 1 до 20): '); Readln(n); Writeln('Вводите через пробел элементы массива'); for i := 1 to n do begin Read(a[i]); a[i] := sqr(a[i]) end; Writeln('Результирующий массив:'); for i := 1 to n do Write(a[i]:0:4, ' '); Writeln end.
Объект, наряду с понятием класс, является важным понятием объектно-ориентированного подхода. Объекты обладают свойствами наследования, инкапсуляции и полиморфизма [1].