Помогите составить программу по паскалю. Надо из 33 переменных( 33 буквы из русского алфавита) составить слово "Вечность". Кажется надо использовать массив.
Answers & Comments
MrLolthe1st
{$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.
0 votes Thanks 0
Issenpilon
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.
Answers & Comments
{Смысл использовать массив, когда есть строчки?}
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.
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.