Dagdawyn 3 ноября 2019 в 08:15
Помогите составить программу по паскалю. Надо из 33 переменных( 33 буквы из русского алфавита) составить слово "Вечность". Кажется надо использовать массив.
Помогите составить программу по паскалю. Надо из 33 переменных( 33 буквы из русского алфавита) составить слово "Вечность". Кажется надо использовать массив.
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.
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.
{$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.
{Смысл использовать массив, когда есть строчки}
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.
Компьютеры и вычисления
62
28
Для комментирования необходимо зарегистрироваться на сайте