"введите текст из 100 литер..."

[katya36]

введите текст из 100 литер, удалив повторные вхождения каждой литеры.

помогите пожалуйста решить,только без испольвания множеств- их мы не проходили ещё

[ROD]

хм... литер... Иммеются идущие подряд литеры? ( в английском алфавите меньше 100 букв+ знаков препинания)
на С++ это выглядит так

#include <iostream.h>
void main()
{
char str[100];
gets(str);
int i,j,n=0;
for (i=0; i<100; i++)
{
if(str[i]==str[i+1]) {
n++;} 
str[i] = str[i+n];
}
}

[katya36]

литеры я насколько поняла это просто буквы...то есть обычный текст...мне в паскале нужно

[Sm1Le]

литер ? - Может букв,или символов лучше ?

Зачем множества ?
Язык какой, программирования ?

=))) - Одновременно =))))

str1,str2:string 

for i:=1 to length(str1) do
 begin
n:=0;
  for j:=1 to length(str2) do 
   begin

    if str1[i]=str2[j] then 
     begin
      N:=1;
      {Udalenie}
     end;
   end;
if N=0 then 
str2:=str2+str[i];
 end;

доработай чучуть =)

[katya36]

язык- паскаль...множества мне и не нужны, просто некоторые советовали с множестаами решать. ну просто буквы и пробелы вроде

[красотка Ольга]

Всем привет))))помоги кто смже,надо решить программу турбо паскале:
в ппоследлвателности чисел выбрать все четные ,подсчитав их количество и смму .Нечетные числа превратить в четные ,умножив кждое из них на 2

[katya36]

спасибо большое...а что такое string и length...1ый курс- такого у нас не было ещё) мне преподавательница сказала вводить так:

const n=100; eot='@';


var A:array [1..n] of char;
i,j,k:integer;
ok:boolean;
ch:char;


begin
writeln ('введите 100 литер');
i:=0;
repeat
repeat
i:=i+1;
read (A[i]) ;
until (i=n) or eoln or (A[i]=eot);
readln
until (i=n) or (A[i]=eot);

а что дальше, как дописать??)

[красотка Ольга]

пожалуйста мне в поидельник здать нужно ,а я из иста не хочу вылетать((((((((((

[Sm1Le]

Сообщение от красотка Ольга

Всем привет))))помоги кто смже,надо решить программу турбо паскале:
в ппоследлвателности чисел выбрать все четные ,подсчитав их количество и смму .Нечетные числа превратить в четные ,умножив кждое из них на 2

О Боже ! ! ! ! у зачем же такие Ники ?!

К примеру у тебя есть массив чисел :

n:=20;
mas[N] of integer;
kol:integer;
sum:integer;

for i:=1 to N do 
 begin
  if ((mas[i] mod 2) = 0) then 
  begin
   kol:=kol+1;
   sum:=sum+mas[i];
  end
else
 begin
  mas[i]:=mas[i]*2;
 end;
 end;

[katya36]

спасибо большое...а что такое string и length...1ый курс- такого у нас не было ещё) мне преподавательница сказала вводить так:

const n=100; eot='@';


var A:array [1..n] of char;
i,j,k:integer;
ok:boolean;
ch:char;


begin
writeln ('введите 100 литер');
i:=0;
repeat
repeat
i:=i+1;
read (A[i]) ;
until (i=n) or eoln or (A[i]=eot);
readln
until (i=n) or (A[i]=eot);

а что дальше, как дописать??)