Буду . нарисуйте ориентированный граф ( блок - схему) проверки учителем пачки тетрадей. в систему команд - id337680820210420 от академег228 20.04.2021 17:52

Question

Информатика: Буду . нарисуйте ориентированный граф ( блок - схему) проверки учителем пачки тетрадей. в систему команд входит : проверить работу; взять тетрадь из пачки; выставить оценку; выяснить, остались ли ещё не проверенные тетради. содержит ли полученный граф цикл?

академег228 · Accepted Answer

1)const nmax=50;       mmax=50; var x:array [1..nmax, 1..mmax] of integer; n,m,i,j,ki: integer;   begin   write( Введите размерность матрицы: );   readln(n,m);   writeln( Введите элементы матрицы: );   for i:=1 to n do     for j:=1 to m do       readln(x[i,j]);   writeln( Матрица: );   for i:=1 to n do   begin     for j:=1 to m do       write(x[i,j]);     writeln( );   end;     j:=1;   while (j =m) do   begin     ki:=0;       for i:=1 to n do       if (x[i,j] mod 2 =0) then ki:=ki+1;     writeln(...

MOGZ ответил