Задание:
PASCAL ДАНА СТРОКА В КОТОРОЙ НАСКОЛЬКО СЛОВ. НАЙТИ ДЛИНУ ПЕРВОГОСЛОВА
Решение:
varstr: string; p: integer; beginreadln (str); p: =pos (',str); writeln (p-1); end.
Знаете другой ответ?
PASCAL ДАНА СТРОКА В КОТОРОЙ НАСКОЛЬКО СЛОВ. НАЙТИ ДЛИНУ ПЕРВОГОСЛОВА
varstr: string; p: integer; beginreadln (str); p: =pos (',str); writeln (p-1); end.
Знаете другой ответ?