var n, k, i:integer;
begin
writeln('Введи число, которое нужно выводить');
read(k);
writeln('Укажи, сколько раз вывести число');
read(n);
for i:=1 to n do
write(k,' ');
end.
Скорость соединения рана 128 кб. чтоб передать файл размером 640 кб. нужно 5 секунд
Ответ:ссылку на контрольную скинь
Объяснение:
Var n,a,b,c,d,i:integer;
begin
write('n = '); readln(n);
write('A и B: '); readln(a,b);
write('C и D: '); readln(c,d);
for i:=1 to a-1 do write(i,' ');
for i:=b downto a do write(i,' ');
for i:=b+1 to c-1 do write(i,' ');
for i:=d downto c do write(i,' ');
for i:=d+1 to n do write(i,' ');
end.
Пример:
n = 20
A и B: 5 10
C и D: 14 18
1 2 3 4 10 9 8 7 6 5 11 12 13 18 17 16 15 14 19 20
R, c = input().split()arr = list() for _ in range(int(r)): arr.append(list(map(int, input().split())))m = max(e for r in arr for e in r) for i, r in enumerate(arr): if m in r: print(i, r.index(m)) break