составить программу которая кодирует введенное с клавиатуры слово заменяя буквы их номерами в алфавите увеличеными на 1
Answers & Comments
Ленгит
Var s:string; i:byte; begin writeln('Введите слово:'); readln(s); writeln; writeln('Их номера в алфавите:'); for i:=1 to length(s) do case s[i] of 'А'..'Я' : write(ord(s[i])-1038+' '); 'а'..'я': write(ord(s[i])-1070+' '); end; readln end.
Answers & Comments
i:byte;
begin
writeln('Введите слово:');
readln(s);
writeln;
writeln('Их номера в алфавите:');
for i:=1 to length(s) do
case s[i] of
'А'..'Я' : write(ord(s[i])-1038+' ');
'а'..'я': write(ord(s[i])-1070+' ');
end;
readln
end.