Developing.ru

очень вас благодарю

var
  s : string;
  c : char;
begin
  write('введите текст: ');
  readln(s);
  write('буквы: ');
  for c := 'а' to 'я' do if pos(c,s)>0 then write(c,' ');
end.

[code]
var
s : string;
c : char;
begin
write('введите текст: ');
readln(s);
write('буквы: ');
for c := 'а' to 'я' do if pos(c,s)>0 then write(c,' ');
end.
[/code]

В вашем коде, кстати в "in ['a'..'я']" стоит английская "a".

прошу помогите плиз хоть как-то составить программу. мне не до шуток сейчас

На правах тоже преподавателя ставлю Вам два балла автоматом. Садитесь. :)

var
  s : string;
  i : byte;
  c : set of char;
begin
  c := [];
  write('введите текст: ');
  readln(s);
  for i := 1 to length(s) do
    if s[i] in ['a'..'я'] then include(c, s[i]);
  writeln('буквы: ', c);
end.

Вот сама задача:
напечатать в алфавитном порядке все маленькие русские буквы, которые входят в даный текст из 200 букв.
что как бы мне помогли:
[code]var
s : string;
i : byte;
c : set of char;
begin
c := [];
write('введите текст: ');
readln(s);
for i := 1 to length(s) do
if s[i] in ['a'..'я'] then include(c, s[i]);
writeln('буквы: ', c);
end.[/code]
(но препод может не поверить) ну код вроде работает:
вот до чего я додумался:
(на картинке) но не работает код: пишет там нельзя применять integer к char ! как бы просто эту задачку написать? помогите плиз!
был еще вариант If c>=а and c<= 'я' then writeln (c) целый день сижу ничего не выходит (