Aleksandrovna370
?>

Программирование на Си. Написать программу.

Информатика

Ответы

Yumashev

Разбираешься в компьютерах и играх, но не разбираешься в программирование. Я могу сделать вывод, что ты играл на протяжении 6 лет в игры и собирал себе компьютер для игр

Думаю ты не разбираешься во внутренностях компьютера.

Экзамены перенесли на август, мои тебе советы:

Готовься к ЕГЭ

Смотри видео уроки по профильной математике ЕГЭ от Павла Маслова (Ютуб)

Физику смотри также на Ютубе (Пенкин)

Также могу тебе посоветовать решать каждый день по 15 вариаций заданий, которые ты например выучил решения первого задания матана, решай их как можно больше)

Сдай ЕГЭ

Без него ничего не выйдет

Aleksandr_Vasilev
Const m=4; n=15;
var
  i,j,j0: integer;
  a:array[1..m,1..n] of integer;
  jExit,iExit:Boolean;
begin
  Randomize;
  for i:=1 to m do begin
    writeln;
    for j:=1 to n do begin
      a[i,j]:=random(2);
      write(a[i,j]:2)
      end
    end;
  writeln;
  j:=0; jExit:=false;
  repeat
    j:=j+1; i:=1; iExit:=false;
    if a[i,j]=0 then begin
      repeat
        i:=i+1;
        if a[i,j]<>0 then iExit:=true
      until iExit or (i=m);
      if i=m then jExit:=true
      end
    until jExit or (j=n);
  if a[i,j]=0 then writeln('Нулевой столбец ',j)
  else writeln('Нет нулевых столбцов');
end.

Тестовый пример:

 0 1 1 1 1 0 1 0 1 0 0 0 0 0 1
 0 0 1 0 1 0 0 0 1 1 0 0 0 0 0
 1 1 0 0 0 1 0 1 1 1 1 1 0 1 1
 1 1 1 0 1 0 1 0 0 1 0 1 0 1 0
Нулевой столбец 13

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Программирование на Си. Написать программу.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

mouse-0211fsb3509
Окунева-Мотова
lider-mpl550
lechic3
iraimironova
golovins3
artashhovhan
aluka
ShafetdinovAndrei
artbogema2016
yna21289
Виктория1690
saveskul84
Shlapakov1911aa
svetlanadianowa
▲