Дана строка содержащая любые символы кроме русских букв.
Написать процедуру, которая заменит все малые латинские буквы на следующие по алфавиту.
Например из строки: a bc 83xz получим b cd 83ya.
procedure Zamena(var Stroka:string);
Можно пожалуйста решить обычным языком(8класс) length,copy,deleted,insert,pos...
Ответы
Ответ дал:
0
procedure Zamena(var stroka: string);
var
i: integer;
begin
for i := 1 to length(stroka) do
begin
if stroka[i] in ['a'..'y'] then inc(stroka[i])
else
if stroka[i] = 'z' then stroka[i] := 'a'
end;
end;
var
s: string;
begin
readln(s);
zamena(s);
Writeln(s);
end.
Не уверен в корректной компиляции на fpc, к примеру, напишите если будут проблемы.
Ответ дал:
0
ок
Ответ дал:
0
А лучше, если вы вообще не понимаете о чем идет речь, выучите материал и не задавайте абсурдных вопросов.
Ответ дал:
0
Можете сказать что они означают эти"[ ]"?
Ответ дал:
0
Это индекс(номер) символа в строке
Ответ дал:
0
в этих скобках он оказывается
Похожие вопросы
2 года назад
2 года назад
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад