Регистрация
Logicsmile007
13.03.2023 23:53
Информатика
Есть ответ 👍

Дана строка содержащая любые символы кроме букв. написать процедуру, которая заменит все малые латинские буквы на следующие по алфавиту. например из строки: a bc 83xz получим b cd 83ya. procedure zamena(var stroka: string); можно решить обычным языком(8класс) length,copy,deleted,insert,

241
361
Посмотреть ответы 2

Ответы на вопрос:

Ekaterina2558
Ekaterina2558
4,5(52 оценок)

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, к примеру, напишите если будут проблемы.

aisa2017
aisa2017
4,7(1 оценок)
Оба типа дискет    защитой от записи (перемычка на защитном  корпусе  . при продвижении от центра  диска   число секторов на дорожке в  каждой   зоне возрастает.

Популярно: Информатика