Предмет:
ИнформатикаАвтор:
skylerАвтор:
carolina32Автор:
dangeloАвтор:
tinyqjt0Автор:
rileyrgx8Автор:
ariasyuylprocedure 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, к примеру, напишите если будут проблемы.
Автор:
suzan3ekcДобавить свой ответ
Предмет:
Русский языкАвтор:
string beantzz3Ответов:
Смотреть
Предмет:
ФизикаАвтор:
paitynfoj0Ответов:
Смотреть
Предмет:
ГеометрияАвтор:
javonbartonОтветов:
Смотреть