Страница 1 из 1

В строке слова разделены пробелами. Удалить каждое нечётное слово. (Pascal)

Добавлено: 13 май 2010, 15:20
Crime
1) В строке слова разделены пробелами. Удалить каждое нечётное слово. Напечатать полученную строку.
2)Дана последовательность слов. Напечатать те слова последовательности, которые отличны от последнего слова и удовлетворяют следующему свойству: в слове нет повторяющихся букв.

Можете помочь решить эти две задачи через "Файл"? :)

есть мысли по поводу 1 задачи, но только не получается(((
1) program z_2;
var f,g:text;
s:string;
i:integer;
begin
assign(f,'C:\b.in');
assign(g,'C:\b.out');
reset(f); rewrite(g);
while not eof(f) do begin
while not eoln(f) do begin
readln(f,s);
i:=1;
while i mod 2<>0 do delete(s,i,length(s));
i:=i+1;
end;
end;
close(f); close(g);
end.

Re: В строке слова разделены пробелами. Удалить каждое нечётное слово. (Pascal)

Добавлено: 17 май 2010, 14:09
Хыиуду
Разбиение строки на слова - в разделе "алгоритмы".