Помогите составить программу по паскалю. Надо из 33 переменных( 33 буквы из русского алфавита) составить слово "Вечность". Кажется надо использовать массив.
Помогите составить программу по паскалю. Надо из 33 переменных( 33 буквы из русского алфавита) составить слово "Вечность". Кажется надо использовать массив.
Гость
Ответ(ы) на вопрос:
Гость{$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.
Гость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.
Не нашли ответ?
Похожие вопросы