Помогите составить программу по паскалю. Надо из 33 переменных( 33 буквы из русского...

Question

Помогите составить программу по паскалю. Надо из 33 переменных( 33 буквы из русского алфавита) составить слово "Вечность". Кажется надо использовать массив.

Comments

Точно нужен массив или не обязательно?

Answer 1

{$R-,$Q-}{Отключаем RE}
{Смысл использовать массив, когда есть строчки?}
const s='АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ;
var i:integer;Sfor,send:string;
Begin
sfor:='ВЕЧНОСТЬ';
send:='';
    for i:=1 to length(sfor) do send:=send+s[ord(sfor[i])-ord('А')];
writeln(send);
end.

Answer 2

Var
s,st1:string;
begin
s:='абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
st1:=copy(s,3,1)+copy(s,6,1)+copy(s,25,1)+copy(s,15,1)+copy(s,16,1)+copy(s,19,1)+copy(s,20,1)+copy(s,30,1);
writeln(st1);
end.