Переписать введенные буквы в алфавитном порядке, а числа в порядке возрастания

@Morty33 · Регистрация: 19.04.2016

Студворк — интернет-сервис помощи студентам

Ввести последовательность, состоящая из букв латинского алфавита и целых чисел, меньших 50 Переписать введенные буквы в алфавитном порядке, а числа в порядке возрастания.

@ZX Spectrum-128 · 15.05.2016, 19:26

Pascal

{Переписать введенные буквы в алфавитном порядке, а числа в порядке возрастания. }
var
  s: string;
  x: set of char;
  y: set of byte;
  i: byte;
  ch: char;
  value, err: integer;
 
begin
  x := [];
  y := [];
  for i := 1 to 5 do
  begin
    readln(s);
    val(s, value, err);
    if err = 0 then
      include(y, value)
    else
    if s[1] in ['A'..'Z', 'a'..'z'] then
      include(x, s[1]);
  end;
  writeln('Буквы:');
  for ch := #32 to #255 do
    if ch in x then
      write(x:4);
  writeln;
  writeln('Числа:');  
  for i := 0 to 255 do
    if i in y then
      write(y:4);
  
  readln;  
end.

@Morty33 0 / 0 / 0 Регистрация: 19.04.2016 Сообщений: 24
		1
	Переписать введенные буквы в алфавитном порядке, а числа в порядке возрастания 15.05.2016, 15:48. Показов 1641. Ответов 1 Метки нет (Все метки) Ввести последовательность, состоящая из букв латинского алфавита и целых чисел, меньших 50 Переписать введенные буквы в алфавитном порядке, а числа в порядке возрастания. 0

Опции темы

Переписать введенные буквы в алфавитном порядке, а числа в порядке возрастания

Решение