Задать вопрос
30 августа, 08:13

Помогите перевести с Pascal на Python

var s, s1:string;

i:integer;

begin

readln (s) ;

s1:=s;

for i:=1 to length (s1) do begin

if s1[i]='а' then s1[i]:='б' else

if s1[i]='А' then s1[i]:='Б' else

if s1[i]='б' then s1[i]:='а' else

if s1[i]='Б' then s1[i]:='А';

end;

writeln (s1) ; end.

+2
Ответы (1)
  1. 30 августа, 09:58
    0
    S=input ()

    s1=""

    for i in range (0, len (s)) :

    if s[i]=="а":

    s1=s1+"б"

    elif s[i]=="А":

    s1=s1+"Б"

    elif s[i]=="б":

    s1=s1+"а"

    elif s[i]=="Б":

    s1=s1+"А"

    else:

    s1=s1+s[i]

    print (s1)
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Помогите перевести с Pascal на Python var s, s1:string; i:integer; begin readln (s) ; s1:=s; for i:=1 to length (s1) do begin if s1[i]='а' ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Похожие вопросы по информатике
Помогите объяснить задачу! Program String29; var otvet:String; i:integer; S0, S:String; C:char; begin Writeln ('Введите строкy S') ; readln (S) ; Writeln ('Введите строкy S0') ; readln (S0) ; Writeln ('Введите символ C') ; readln (C) ;
Ответы (1)
Функция для определения позиции буквы в слове, не могу найти ошибку. var slovo : string; i : integer; function ups (var s : string; ch : char) : integer; var i, n : integer; begin for i:=1 to length (s) do if s[i]=ch then n:=i else n:=0; ups:=n; end;
Ответы (1)
Как сделать теперь без массива (паскале) ? var nm:array of integer; j, l:integer; begin nm: = new integer[3] (random (20), random (20), random (20)) ; writeln ('nm[0] = ', nm[0]) ; writeln ('nm[1] = ', nm[1]) ; writeln ('nm[2] = ', nm[2]) ;
Ответы (1)
Помогите! Когда я ввожу ответ на вопрос, оно не отвечает на него! Это Паскаль Program Programm; var n:string; a:integer; b:integer; c:integer; answer: integer; begin write ('Как вас зовут:') ; readln (n) ; writeln ('Привет, ', n,'!
Ответы (1)
Выдаёт ошибку: операнды имеют неприводимые типы. Где я ошиблась? (Программа написана на языке Pascal ABC) Program Home; Uses CRT; Var a: integer; b: real; Begin WriteLn ('Введите еденицу измереня: килограмм, миллиграмм, грамм, тонна, центнер') ;
Ответы (1)