uses crt;
var a:array[1..100] of char;
n,i,j:integer;
begin
clrscr;
write('Количество символов n=');
readln(n);
writeln('Введите ',n,' символов');
for i:=1 to n do
readln(a[i]);
clrscr;
writeln('Исходные символы:');
for i:=1 to n do
write(a[i]);
writeln;
writeln('Возможные пары символов:');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i],a[j],' ');
writeln;
end;
readln
end.
uses crt;
var a:array[1..100] of char;
n,i,j:integer;
begin
clrscr;
write('Количество символов n=');
readln(n);
writeln('Введите ',n,' символов');
for i:=1 to n do
readln(a[i]);
clrscr;
writeln('Исходные символы:');
for i:=1 to n do
write(a[i]);
writeln;
writeln('Возможные пары символов:');
for i:=1 to n-1 do
begin
for j:=i+1 to n do
write(a[i],a[j],' ');
writeln;
end;
readln
end.
Похожие записи/страницы:
- Даны натуральное число n, символы S1,S2,...,Sn. Получить первое натуральное i, для которого каждый из символов…
- Программа считывает символы и затем запрашивает строку на ввод. Проверяет можно ли из введенных символов…
- Ввести строку из символов 2-х типов: А и В. Подсчитать количество символов А и символов В в строке. Если число…
- Пусть задано множество А, напечатать в алфавитном порядке все согласные буквы этого множества, входящих в…
- Вводится k - число символов в блоке и последовательность двоичных символов, длина которой кратна (k-1). Если…
- Вводится k - число символов в блоке и последовательность двоичных символов, длина которой кратна (k-1). Если…
- Во введённой строке подсчитайте количество символов '*' и символов '!'- Pascal(Паскаль)
- Даны натуральное число n, символы s1…sn. Преобразовать последовательность s1…sn заменив в ней: каждую из групп…