ответ:
program stringab;
var
a, b: string;
c: char;
i, p: integer;
bb: boolean;
begin
writeln ('введите строки a и b: ');
readln (a);
readln (b);
bb : = true;
for i : = 1 to length (b) do begin
c : = b [i];
p : = pos (c, a);
if p > 0 then begin
delete (a, 1, p);
end else begin
bb : = false;
break;
end;
end;
if bb then
writeln ('можно получить')
else
writeln ('нельзя получить');
readln;
end.
Поделитесь своими знаниями, ответьте на вопрос:
Зная что в кодировке ascii десятичный код каждой строчной латинской буквы на 32 больше кода соответствующей прописной буквы, декодируйте следующее сообщение: 77 105 99 107 101 121 32 77 111 117 115 101