Перевод с Паскаля на КуМир

@salavat228 · Регистрация: 12.11.2016

Author24 — интернет-сервис помощи студентам

Pascal

 var
  st: string;
 i: integer;
 begin
  readln(st);
   for i:=1 to length(st) do
    if st[i] = 'А' then st[i]:='Б'
    else if st[i] = 'а' then st[i]:='б'
      else if st[i] = 'Б' then st[i]:='А'
       else if st[i] = 'б' then st[i]:='а';
 write(st);
 end.

@Puporev · 13.11.2016, 21:31

Код

алг

нач
лит st
цел i,d
вывод "Введите строку строку, содержащую буквы А,а,Б,б" 
вывод нс 
ввод st
d:=длин(st)
нц для i от 1 до d
выбор
при st[i]="А":st[i]:="Б"
при st[i]="Б":st[i]:="А" 
при st[i]="а":st[i]:="б"
при st[i]="б":st[i]:="а"
все
кц
вывод нс
вывод st
кон

	13.11.2016, 21:31