BigAp.ru — интернет-магазин электроники и бытовой техники

Автор Тема: Паскаль Помогите нужно программу до делать повторяющийся слова нужно убрать  (Прочитано 308 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн сабр123

  • Юзер
  • *
  • Сообщений: 1
  • Karma: +0/-0
    • Share Post
Помогите нужно программу до делать повторяющиеся слова нужно убрать:
var
s:string[80];
i,k,t,y:integer;
begin
writeln('vedite predlozhenie');
read(s);
writeln('vedinoe predlozhenie');
writeln(s);
k:=1;
for i:=1 to length(s) do
if s[i]=' ' then begin t:=k; break;end else inc(k);
y:=0;
for i:=1 to length(s) do
if copy(s,i,t-1)= copy(s,1,k-1) then begin inc(y);end;
if y=1 then writeln(copy(s,1,k-1))
end.
« Последнее редактирование: Июнь 02, 2016, 10:34:31 am от sysadmin »

 

Оффлайн sysadmin

  • Administrator
  • сисадми́н
  • *****
  • Сообщений: 8258
  • Karma: +112/-0
  • Пол: Мужской
    • Share Post
    • сайт для сис. админов и не только...
Телепаты в отпуске, но то что я понял, это типа паскаль или дельфи, убрал лишнее по моему разумению:
var
s:string[80];
i,k,t,y:integer;

begin
writeln('vedite predlozhenie');
read(s);
k:=1;
for i:=1 to length(s) do
if s=' ' then begin
t:=k;
break;
end
else inc(k);
y:=0;
end;
end

На первый раз прощаю, но впредь уделяй внимание деталям, о чем я тебе писал изначально в чате
дорогу осилит идущий...
......................
MCP, MCTS, RHCSA
......................
also aka xck...


xx
Нужно обучение SAP ABAP

Автор KOT

0 Ответов
97 Просмотров
Последний ответ Декабрь 03, 2016, 10:59:30 am
от KOT
xx
Нужно рассчитать кпн по упрощенке ндс и комиссии банку

Автор Асем

3 Ответов
497 Просмотров
Последний ответ Февраль 07, 2016, 05:56:34 pm
от sysadmin
xx
Нужно создать профи сайт на cms вордпрессе

Автор Erkin

2 Ответов
99 Просмотров
Последний ответ Март 30, 2017, 09:18:56 am
от Erkin
question
Что нужно сделать что бы ваш windows проверили на наличие вирусов

Автор Fire

1 Ответов
982 Просмотров
Последний ответ Сентябрь 20, 2014, 04:11:55 pm
от sysadmin