QBasic & Pascal

[viktor8888]

Сообщение от Mad_Cat

ну тогда вторая

const s='ВЖИ!УСФЕБ!ОЖ!ГЬУБЪЙЩЭ///';
var i:integer;
st:string;
begin
for i:=1 to length(s) do
write(chr(ord(s[i])-1))
end.

она почему-то не работала
вот эта работает

var
 i:integer;
begin
 st:='ВЖИ!УСФЕБ!ОЖ!ГЬУБЪЙЩЭ///';
for i:=1 to length(st) do
write(chr(ord(st[i])-1));
end.