Пожалуйста, переведите с Pascal ** Python​i:=k-1;while i>=1 do begin a[i]:=a[i+1]-1;...

0 голосов
36 просмотров

Пожалуйста, переведите с Pascal на Python​i:=k-1;while i>=1 do begin a[i]:=a[i+1]-1; a[n-i+1]:=a[i]; dec(i); end;


Информатика (17 баллов) | 36 просмотров
0

Это полный код?

0

var a: array [1..100] of integer; i, n, k: integer;begin readln(k); n := (k * 2) - 1; A[1] := 1; write(A[1], ' '); for i := 2 to k do begin A[i] := A[i - 1] + 1; write(A[i], ' '); end; for i := k + 1 to n do begin A[i] := A[i - 1] - 1; write(A[i], ' '); end;end.0

Дан 1 ответ
0 голосов
Правильный ответ

a = []

k = int(input())

n = k * 2 - 1

a.append(1)

for i in range(1, k):

   a.append(a[i - 1] + 1)

for i in range(k, n):

   a.append(a[i - 1] - 1)

print(" ".join(map(str, a)))

(654k баллов)