Регистрация
16вопрос
26.06.2022 17:14
Информатика
Есть ответ 👍

Нужно сделать блоксхему. 8 класс

175
467
Посмотреть ответы 1

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

annaaristova
annaaristova
4,6(36 оценок)
Var a : array[1..100] of integer; j, i, n, k, out_num, is_out : integer; begin   read(n); {всего людей}   read(out_num); {номер выходящего, в   = 3}   for i : = 1 to n do       a[i] : = 1;   i : = -1;   repeat       i: = (i + 1) mod n;       k : = k + a[i+1];       if k = out_num then begin           a[i+1] : = 0;           is_out : = is_out + 1;           k : = 0;                     writeln;           for j : = 1 to n do write(a[j]: 2);       end;   until n - is_out < = 1;     writeln;   for i : = 1 to n do       if a[i] > 0 then writeln(i); end. 

Популярно: Информатика