Информатика
Информатика, 02.08.2020 13:19, mikreaz

Вопрос/Задача:

Перебор сочетаний ограничение по времени на тест 2 секунды
ограничение по памяти на тест 64 мегабайта
ввод стандартный ввод
вывод стандартный вывод
Выведите все сочетания натуральных чисел от 1 до N, содержащие ровно K элементов.

Входные данные
Ввод содержит целые числа N и K (1 ≤ K ≤ N ≤ 9).

Выходные данные
Выведите одну или более строк, содержащих все K-элементные сочетания чисел от 1 до N в лексикографическом порядке (см. примеры).

Примеры
входные данные
3 2
выходные данные
1 2
1 3
2 3
входные данные
4 2
выходные данные
1 2
1 3
1 4
2 3
2 4
3 4

Ответы на вопрос

Ответ
Ответ разместил: Гость

1)

program pr1; uses crt; var mas: array[100..999] of integer; i: integer; beginclrscr; for i: =100 to 999 do mas[i]: =i; {1 sposob}for i: =100 to 999 do if mas[i] mod 9 =0 then writeln(mas[i]); i: =100; {2 sposob}while i< =999 do begin if mas[i] mod 9=0 then writeln(mas[i]); i: =i+1; end; i: =100; {3 sposob}repeatif mas[i] mod 9=0 then writeln(mas[i]); i: =i+1until i=999end.

2)

program pr1; uses crt; var mas: array[100..999] of integer; i,v: integer; beginclrscr; v: =0; for i: =100 to 999 do mas[i]: =i; {1 sposob}for i: =100 to 999 do if mas[i] mod 17 =0 then v: =v+mas[i]; writeln(v); i: =100; {2 sposob}v: =0; while i< =999 do begin if mas[i] mod 17=0 then v: =v+mas[i]; ; i: =i+1; end; writeln(v); i: =100; {3 sposob}v: =0; repeatif mas[i] mod 17=0 then v: =v+mas[i]; i: =i+1until i=999; writeln(v); end.

Ответ
Ответ разместил: Гость

ответ:

для видеомонтажа, нет

Ответ
Ответ разместил: Гость

язык паскаль.

program ski;

const n=5; {длина массива}

var: a: array [1..n] of integer; i,s: integer;

begin

for i: =1 to n do begin

                          writeln('vvedite element massiva nomer ',i);

                          read(a[i]);

                        end;     {тут мы просим пользователя ввести элементы}

s: =0; {s - это указанная тобой сумма. мы ее соответственно обнуляем сначала}

for i: =1 to n do begin

                          if a[i] mod 10=0 then s: =s+a[i];  

                        end;    

 

{ берем каждый элемент массива, и проверяем, делится ли он на 10 без остатка(mod- это остаток от деления на указанное число). если все в порядке, тогда прибавляем число к общей сумме }

 

writeln('summa elementov ravnih nulu ',s);   {пишет ответ}

readln; {чтобы сразу не закрывалась программа}

end.

 

если возникнут вопросы или появится еще подобное для решения, пиши прямо в личку. мне все равно делать нечего )

Ответ
Ответ разместил: Verrunnya
PascalABC.NET ₃.₆.₃.₂₅₇₇##  var (N, K) := ReadInteger2; foreach var c in Arr(1..N).Combinations(K) do c.Println

Пример работы:


Перебор сочетаний ограничение по времени на тест 2 секундыограничение по памяти на тест 64 мегабайта
Перебор сочетаний ограничение по времени на тест 2 секундыограничение по памяти на тест 64 мегабайта

Похожие вопросы

Вопросов на сайте: 13570182