Контрольная работа: Программирование решения задач

end;

begin

repeat

randomize;

for i := 1 to 5 do

for j := 1 to 5 do arr[i, j] := random(5)-1;

for i := 1 to 5 do

if haveotr(i) then del(i);

until false

end.

Задача №9

Даны два непустых множества прописных и строчных букв. Написать программу, которая выводит перечисленные множества в алфавитном порядке.

Решение

Для решения задачи вводим два непустых множества (случайным образом вдвоём буквы).N – число постоянное и равно 20. Вычисляем с помощью tolength. Записываем результат.

programProject9;

//usesSysUtils;

const

n = 20;

var

tmp : char;

pr , st : string;

i, j : byte;

a:real;

begin

repeat

writeln('enter st');

readln(st);

for i := 1 to length(st) do

for j := i to length(st) do

if st[i] > st[j] then

begin