P.S.

Уже все написано.

Додано (12.03.2008, 18:59)
---------------------------------------------
це задача 2 скажіть що тут не так?

Додано (20.03.2008, 20:43)
---------------------------------------------
Щоб теми не зав’яли, наступні дві задачі від мене:
1. Написати програму, що знаходить саме довге слово в заданому рядку
2. Написати програму, що визначає кількість слів, що містять хоча б одну букву «ю»
Згадаймо рядкові величини.
Ну, хто буде першим?
Увага! Публікуємо повний розв’язок!

uses crt;
var
s:string;
n,i,k:integer;
begin
clrscr;
writeln('S>');
readln(s);
n:=length(s);
k:=0;
i:=1;
while i<=n do begin
if s[i]='1' then
begin
k:=k+1;
while (i<=n) and (s[i]<>' ') do i:=i+1;
end;
i:=i+1;
end;
writeln(k);
end.

Правда шукав цифру "1" для зручності, а ви вже міняйте на "ю"

var s:string;
k:byte;
begin
readln(s);
s:=s+' ';
k:=0;
while pos(' ',s)<>0 do
begin
if pos('ю',copy(s,1,pos(' ',s)))<>0 then inc(k);
delete(s,1,pos(' ',s))
end;
writeln(k)
end.

1. Написати програму, що знаходить саме довге слово в заданому рядку
var s,ms:string;
m,l:byte;
begin
readln(s);
s:=s+' ';
m:=0;
while pos(' ',s)<>0 do
begin
l:=pos(' ',s)-1;
if l>m then begin m:=l; ms:=copy(s,1,l) end;
delete(s,1,pos(' ',s))
end;
writeln(ms)
end.

Ну і зауваженя до попередніх та наступних розвязків:
Краще використовувати
var n:byte absolute s ніж n:=length(s);

Можливо хоча б тому

Якщо ви даєте зауваження то будь-ласка аргументуйте.
Якщо не помиляюсь то ви писали що inc працює швидше ніж і:=і+1, а це не так чому і прошу аргументувати.

Додано (24.03.2008, 09:14)
---------------------------------------------

Паскаль використовує російські букви через таблицю АСКІ (ASCI по моєму) і з цими символами ніяких проблем немає.
А ця абра кадабра може бути в декількох варіантах:
1. використовувалось кодування не АСКІ
2. не працює або не коректно працює кейрус.ком (цей файл тра запускати перед запуском паскаля щоб відображалась кирилиця)

Додано (24.03.2008, 10:45)
---------------------------------------------

а якщо введений рядок уже буде мати 255 символів?

Додано (24.03.2008, 11:41)
---------------------------------------------

uses crt;
var
ms,s1,s:string;
n,i:integer;
begin
clrscr;
writeln('S>');
Readln(s);
n:=length(s);
s1:='';
ms:='';
i:=1;
while i<=n do begin
if s[i]<>' 'then
begin
s1:=s1+s[i];
i:=i+1;
end
else
begin
if length(s1)>length(ms) then ms:=s1;
s1:='';
while (s[i]=' ') and (i<=n) do i:=i+1;
end;
end;
if length(s1)>length(ms) then ms:=s1;
writeln(ms,' ',length(ms));
readkey;
end.

По-перше відносно inc(i) і i:=i+1 я навів приклад програми давав, і ви могли б переконатися.
По-друге читайте літературу у якій написано що inc є командою ассемблер і виконується вона швидше ніж i:=i+1 (хоча по правді сказати, що в багатьох книжках пишуть що по часу однаково);

var i:byte absolute s; це є пряме посилання на s[0] що є довжиною рядкової величини, таким чином ми описуємо зміну "і" один раз. Якщо в задачі буде змінюватися довжина рядка то зміна "і" автоматично буде змінюватися і не прийдеться використовувати багато раз функцію length, і мій варіант виконується швидше

var s,ms:string;
m,l:byte;
begin
readln(s);
m:=pos(' ',s)-1;
ms:=copy(s,1,m);
delete(s,1,m+1);
s:=s+' ';
while pos(' ',s)<>0 do
begin
l:=pos(' ',s)-1;
if l>m then begin m:=l; ms:=copy(s,1,l) end;
delete(s,1,l+1)
end;
writeln(ms)
end.

Додано (24.03.2008, 19:43)
---------------------------------------------
Відносно кирилиці. Хто використовує Turbo Pascal, потрібно підключати keyrus і тут виникають проблеми з Windows XP щоб його підключити і немає одного стандарту кожний настроює його під себе. Для тих хто використовує FreePascal то він використовує кирилицю Windows (сам windows - це велика проблема)

Впринципі робіть що вважаєте за потрібне, а це мої рекомендації, просто не раз зустрічавс з проблемами кирилиці у паскаль.

після закінчення слова в реченні не може бути знаків питання крапок і окликів, ці имволи ставляться тільки після закінчення речення.
Тому я і враховую не тільки символ а і довжину рядка. а на рахунок ком то можна в умову ще додати логічних виразів адже розділових знакі не так і багато.

Робив перевірку на інтелі 486 в циклі на декілька тисяч повторень, і от шо я скажу
саме і:=і+1 працює швидше (правда там різнця зовсім не суттєва близько 5 тіків) перевіряв декілька разів і всеодно час був один і тойже
проти досліду не попреш, до речі інк це не команда асемблера вбудована в паскаль а оператор.
Література може обманювати.

Тоді краще відразу брати код аскі нулевого символу (не буде передач значень змінних)
І не про швидкість тра думати а про надійність.
у розвязку задачі 2 у вас також додається знак " "