Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Все лабораторные работы по паскалю / 4 лаб. Строки / Program5
.pas uses crt;
var s:string; c:char; b:byte;
begin
clrscr;
writeln('Введите строку:');
readln(s);
write('Отсортированная строка: ');
for c:='A' to 'я' do
for b:=1 to length(s) do
if c=s[b]then write(c);
readln;
end.
var s:string; c:char; b:byte;
begin
clrscr;
writeln('Введите строку:');
readln(s);
write('Отсортированная строка: ');
for c:='A' to 'я' do
for b:=1 to length(s) do
if c=s[b]then write(c);
readln;
end.
Соседние файлы в папке 4 лаб. Строки