Задать вопрос
24 января, 22:47

Помогите перевести с 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.

+5
Ответы (1)
  1. 24 января, 23:15
    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]='а' ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;
Ответы (1)
Помогите объяснить задачу! 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)
Запиши программу в Паскале для вычисления площади прямоугольника со сторонами c и m. 1) begin writeln ('Введи длину и ширину прямоугольника c и m') ; readln (c, m) ; s:=c*m; writeln ('s=', s) ; readln; 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)