Павел Камышев
Работаю в Delphi. Есть строка из двух символов. Нужно каждый символ записать в два char-а. Как это сделать?
Работаю в Delphi. Есть строка из двух символов. Нужно каждый символ записать в два char-а. Как это сделать?
Работаю в Delphi. Есть строка из двух символов. Нужно каждый символ записать в два char-а. Как это сделать?
var a,b:char;
stroka:string;
begin
Readln(stroka);
a:=stroka[1];
b:=stroka[2];
Writeln(a,b);
end.