dimitriy7
BANNED | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код:
const
n=11;
var
m: set of char;
s1,s2: string;
a1: array[1..n] of char absolute s1[1];
a2: array[1..n] of char absolute s2[1];
i: byte;
begin
m:=['A'..'Z'];
repeat
writeln('Введите от 1 до 11 символов:');
readln(s1);
until (byte(s1[0])>=1)and(byte(s1[0])<=11);
writeln;
writeln('1-st array:');
for i:=1 to byte(s1[0]) do write(a1[i]);
writeln;
writeln;
s2:='';
for i:=1 to byte(s1[0]) do if s1[i] in m then s2:=s2+s1[i];
writeln('2-nd array:');
for i:=1 to byte(s2[0]) do write(a2[i]);
writeln;
writeln;
writeln('нажмите ENTER');
readln;
end.
|
|
Всего записей: 2946 | Зарегистр. 09-10-2008 | Отправлено: 14:44 28-01-2012 | Исправлено: dimitriy7, 14:47 28-01-2012 |
|
