Помогите перевести с Паскаля на Python:

var

k, s: string;

n: integer;

begin

read (s);

n : = 100;

while n > 0 do

begin

n : = pos ('/', s);

if n > 0 then

begin

k : = copy (s, 1, n - 1);

writeln (k);

delete (s, 1, n);

end else

n : = 0;

end;

k : = copy (s, n, length (s));

writeln (k);

end.

Question

Информатика

Мальвина

17 мая, 04:32

Помогите перевести с Паскаля на Python:

var

k, s: string;

n: integer;

begin

read (s);

n : = 100;

while n > 0 do

begin

n : = pos ('/', s);

if n > 0 then

begin

k : = copy (s, 1, n - 1);

writeln (k);

delete (s, 1, n);

end else

n : = 0;

end;

k : = copy (s, n, length (s));

writeln (k);

end.

+5

Ответы (1)

Знаешь ответ?

Феонилла · Answer 1

S = input ("s:/n")

while s. find ("/") >0:

print (s[0:s. find ("/") ])

s = s[s. find ("/") + 1:len (s) ]

print (s)

Пример:

s:

123/abcde/78/xyz

123

abcde

78

xyz

Помогите перевести с Паскаля на Python:vark, s: string;n: integer;beginread (s);n : = 100;while n > 0 dobeginn : = pos ('/', s);if n > 0 thenbegink : = copy (s, 1, n - 1);writeln (k);delete (s, 1, n);end elsen : = 0;end;k : = copy (s, n, length (s));writeln (k);end.